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IDENTIFICATION 


PRODUCT CODE: AC=-T120A-MC 

PRODUCT NAME: CZRNIAO RM80 DUAL PORT TEST, PT 2 
PRODUCT DATE: APRIL 1, 1982 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE on 
SHOULD NOT BE CONSTRUED AS A_ COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT et rg th ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
hie OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1982 DIGITAL EQUIPMENT CORPORATION 
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OTHER PROGRAMS 
LOADING PROCEDURES 
STARTING PROCEDURES 
ee ADDRESSES 
i: 4:2 UN S & 3 Fh ADDRESSES 
OPERATOR TION 
OPERATING PROCEDURES 
5.1 ‘SOFTWARE’ SWITCH REGISTER 
2°§ OPERATIONAL SWITCH SETTINGS 
5.5 TEST SELECTI 
5.4 DUAL PORT TEST CABLE CONNECTION 
ERRORS 
MISCELLANEOUS 
7.1 RESTRICTIONS 
og LIMITATIONS 
7.5 EXECUTION TIME 
7.4 REQUIRED TESTS 
7.5 DISK SURFACE USAGE 
7.6 LOOP ON ERROR OPTION 


TEST DESCRIPTIONS 
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1. 


2.1 


2.2 


2.3 


3. 


ABSTRACT 


E_RM80 DUAL PORT LOGIC TEST PERFORMS A SERJES OF 
tests WHICH VERIFY THAT THE RM80 DUAL PORT LOGIC 

IS F oe eee PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

1S NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS SY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT . IS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE PDP-11 AND RH/0. 


THIS PROGRAM IS THE Roary PART OF THE RM80 DUAL PORT 
tien LOGIC TEST, AND IS USED TO TEST THE PORT SELECT’’ 
REQUIREMENTS 

EQUIPMENT 


PDP-11/70 PROCESSOR 

KW11-L OR KW11-P CLOCK 

RH70 CONTROLLER 

RM DUAL PORT TEST CABLE (P/N: 7010507~02) 
PREREQUISITE PROGRAMS 

RMBO DISKLESS TEST, PART 1 & 2. 

RM80 FUNCTIONAL TEST, PART 1, 2 & 3 

RMBO DUAL PORT LOGIC TEST, PART 1 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH PORT (A & B). ‘ 


OTHER PROGRAMS 


es OPERATION OF THE DUAL PORT OPTION IS TESTED 
BY THE RM80 PERFORMANCE EXERCISER PROGRAM. 


LOADING PROCEDURES 


HE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED'XXDP’ LOADER. THE PROGRAM MAY NOT 


SEQ 0003 
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38 BE INCLUDED IN AN ‘XXDP° CHAIN. 
et 
4 4. STARTING PROCEDURES 
64 
o2 4.1 STARTING ADDRESSES 
67 A. E NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
68 300(8) STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
69 TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO 
9 BE TESTED. 
72 B. THE RESTART ADDRESS IS LOCATION 206.8). THE PROGRAM 
eg WILL USE THE CURRENT DRIVE ADDRESS 
75 C. THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW 
re THE RH70 ADDRESS TO BE CHANGED. 
4.2 UNIBUS & VECTOR ADDRESS 
80 THE PROGRAM ce THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. 
a Hine ADDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM 
Hy FROM ANY OF THE STARTING LOCATIONS. 
84 MEMORY 
85 LOCATION CONTENTS FUNCTION 
1142 177560 TTY KEYBOARD STATUS REG 
1144 177562 TY KEYBOARD BUFFER REG 
1146 177564 TTY PRINTER STATUS REG 
1150 177566 TTY PRINTER G 
1210 17 278 KW11-P STATUS R 
1212 17254 KW11-L COUNTER BUFFER 
1214 104 KW11-P VECTOR 
1216 177546 KWI1-L STATUS REGISTER 
1220 190 KW11-L VECTOR ADDRESS 


4.3 OPERATOR ACTION 


A. CONNECT THE DUAL PORT TEST CABLE BETWEEN ae 
& BUS B ON THE DRIVE BEING yesTee, (SEE SECTION 5.4) 
8. THE MASSBUS, USED AM INTO MEMOR ~f IN THE PROCESSOR CONTROLLING 


SRALVLSSSLEFLAVLESESE 


SEE SECTION 5.2.) 
ESS $ 


PR 
F. ENTER LL. 4 DRIVE NUMBER. 
G. ENTER THE NUMBER OF THE TEST TO BE RUN. ("CARRIAGE RETURN’ 
OR ‘O°’ WILL RUN ALL TESTS.) 
THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
FROM LOCATION 204. 


ee mp ced ad med eh a oo wd et td eh 
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5. OPERATING PROCEDURES 


5.1 *SOFTWARE’ SWITCH REGISTER 


IF THE PROGRAM IS BEING ~ gs Lor A SWITCHLESS PROCESSOR 
PROGRAM WI Hat: ty Be aA T_THE ater SWITCH REGISTER IS 


AT A HIGHER 
*SOFTWARE* SWITCH VALUE ENT 
TO THE PROMPT FROM. THE SWITCH ENTRY ROUTINE: 
*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER | 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT’ 
"CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 


ON Ae yy WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE* SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S_IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 
SW<15>=1 HALT ON “rig 

LOOP ON TEST 

INH a7 yt ERROR TYPEOUTS 

peisit TEST ITERATIONS 
SW<10>=1 RING TTY BELL ON ERROR 
SW<09>=1 LOOP ON ERROR 
TEST SELECTION 
ayh ep ans ARE seureree IN RESPONSE TO THE ‘ENTER 

MESSAGE. VALID TES R CAN 
EACH ENTRY ust BE TERMINATED BY A CARRIAGE 

RETURN (CR). THE LOOP ON TEST SWITCH, SwW<14>, MUST BE SET 
TO ALL CONTINUOUS EXECUTION OF THE SELECTED TEST. 
TO RUN ALL TESTS ie SEQUENCE tg er Teen A °0° FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 


THE *RUBOUT KEY* (RO) CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 


horororonorn = 


SBIRT 
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17 WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
17 BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
174 TYPED AND WILL BE SEPARATED BY '\* FROM THE CHARACTERS 

123 ENTERED BY THE OPERATOR. 

177 THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 

178 "CONTROL U' . 

180 5.4 TEST CABLE CONNECTION 

182 TO TEST THE RM8O DUAL PORT OPTION WITH THIS PROGRAM, 

183 A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

184 P/N: 701050702). THE TEST CABLE CONNECTS MASSBUS A & MASSBUS 
185 B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
186 THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 
188 WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST, 

189 THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 

190 OF THE RM80 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 

192 THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 

198 ADDRESS PLUG. 

195 THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 

196 PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 

197 OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 

199 Steey OTHER DRIVE OM IME GASSELIS WHICH WAS A ADORESS IN 
200 * ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS IN * 
201 * * CONELICT WITH EITHER OF THE TEST ADDRESSES MUST GE ‘ 
sor Re ee Ra: SO Oe ENE nb 
205 THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

206 DEPEND ON WHICH PROCESSOR, RH CON OLLER Is TO TEST THE been 
207 IF THE DRIVE IS TO BE TESTED BY NN PROC 

208 CONNECT THE MASSBUS CABLE FROM THE RH SOE TROLL LER TO M3" v8 
209 4 ADAPTER BACK PANEL, THEN CONNECT THE TEST CABLE din: "0 507-02) 
210 FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT B 

212 WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 

213 BITS FOR PORTS A & B ARE ASSERTED IN THE ITION 
214 N "RMAS® (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 
215 IT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE. 

36 THE ATTENTION BIT THAT APP: FOR THE DRIVE IS TH 

21 INCL LUSIVE “OR” OF THE PORT A it PORT 8 ATTENTION BITS. BECAUSE 
218 OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 

319 (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 

320 OF THE SELECTED PORT'S ATTENTION BIT. 

$5 
224 6. ERRORS 

227 WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS 

28 CALLED AND IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 


H 
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TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


A. AN ERROR MESSAGE 
B. A DATA HEADER LINE 
C. A DATA LINE CONTAINING: 


1. THE TEST NUMBER 
2: THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 
3. CONTENTS OF THE APPROPIATE REGISTERS 


MISCELLANEOUS 


RESTRICTIONS 
TO RUN THIS PROGRAM, THE SYSTEM ag HAVE ys A_kW11-P 
OR A KWil=-L CLOCK. ADDITIONALLY, THE RM80 UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE TEGNNECTED. 
LIMITATIONS 

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT AND DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
PORT OPTION. 
EXECUTION TIME 


THE PROGRAM TAKES ABOUT 7 MINUTES PER PASS (DEPENDING ON 
OPERATOR INTERVENTION EFFICIENCY). 


REQUIRED TESTS 


IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 
Petre are hn, CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 


A. TEST 2 AND TEST 3. THESE TESTS SET ‘VV-A° AND ‘VV-B' 
RESPECTIVELY. THESE TESTS MUST BE PERFORMED AT LEAST ONCE 
BEFORE TESTS 4 = 10 ARE RUN. 


B. TEST 4 AND TEST 5. THESE TESTS DETERMINE AND oe FOR 
LATER USE THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH 
H PORT. ee TESTS MUST BE PERFORMED AT LEAST ONCE BEFORE 
TESTS 6 - 10 ARE RUN. 
DISK SURFACE USAGE 
THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
ot eg MUST BE CYCLED UP AND ON-LINE FOR THE DIAGNOSTIC TO BE 


LOOP ON ERROR OPTION 
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8.1 


8.2 


IF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL E Bh THE SWITCH IS RESET OR THE wy STOPS > eae 
BECAUSE THE PROGRAM MUST RESET THE RM80 TO A KNOWN 

BEFORE LOOPING ON THE ERROR, THE TEST FOR SwW<09> IS PERFORMED 
oie ter ay THE TEST = NOT AT THE POINT WHERE THE ERROR 


TEST DESCRIPTIONS 


METHOD USED TO VERIFY THAT DRIVE IS IN NEUTRAL 


THE PROGRAM DETERMINES THE THE DRIVE IS IN yt BY CHECKING 


THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) T 
BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
("ATA’ & ‘VV") AND venir ies Ha} oy srl the oo ee 


iF NEITHER PORT L ZEROS FROM - 
RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 
AND THAT ANY BIT DISCREPANCY BETWEEN PORTS INDICATES A 
FAILURE IN THE PATH FOR THAT BIT. 


METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 


THE PROGRAM VERIFIES THAT THE DRIVE HAS =o SEIZED BY 
CHECKING THE DRIVE STATUS oe Mee (RMDS) _T 
THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 
SEEN. EN _RMDS IS READ THR TH TE 


E WH E OUGH THE OPPOSITE PORT, 
ZEROS SHOULD BE Seen, IF BOTH CONDITIONS EXIST, (i.E.. 
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE 
HAS BEEN SEIZED BY THE SPECIFIED PORT. 


TEST 1 DRIVE ACCESS TEST 
VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 


A. 


SELECT. wi ys VERIFY THAT THE paive IS PRESENT, “on in THE 


DRIVE IS A DUAL PORT RM80, THAT THE DRIVE IS 
MOL’, "PGM" 


INE (RMDS HAS 
"DPR', & ‘DRY’ BITS ro. Ae THE THE DRIVE SERIAL 


NUMBER ‘READ THROUGH’ BOTH PORTS IS T 


THE TEST IS REPEATED THROUGH BOTH PORTS. 


TEST 2. SET ’VV" FOR PORT A 
SET VOLUME VALID 


A. 
8. 


C. 


ISSUE K DRIVE CLEAR COMMAND THROUGH PORT A. 
ISSUE™A A READIN PRESET COMMAND THROUGH PORT A. VERIFY 


THAT THE ‘VV° BIT IS SET FOR PORT A. 


ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THA 


THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 





SEQ 0008 
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sp BIT IS SET. 
5 
ts TEST | SET ‘VV* FOR PORT B 
48 SET VOLUME VALID 
320 A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 
352 B. ISSUE _A_READIN PRESET COMMAND THROUGH PORT B. VERIFY 
$27 , THAT THE ‘VV° BIT IS SET FOR PORT B. 
355 C. ise A RELEASE COMMAND THROUGH PORT B. VERIFY THA 
356 THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
357 BIT IS SET. 
359 
4] TEST 4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 
305 MEASURE THE TIMEOUT ONE=SHOT VALUE THROUGH PORT A 
364 A. WRITE O'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
365 DRIVE HAS BEEN SEIZED. 
369 8. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
368 ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 
370 C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
371 TO NEUTRAL 


TEST 5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT 6 
MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 


SSNS 
QUsWN 


377 

378 A. WRITE 0°S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 

$5 ’ DRIVE HAS BEEN SEIZED. 

381 B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
386 ONE=SHOT AND SAVE THE VALUE FOR LATER USE. 

384 C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
385 TO NEUTRAL 

i 

368 TEST 6 TEST "PORT SELECT® SWITCH, DRIVE CYCLED UP 

4 TEST THE OPERATION OF THE ‘PORT SELECT* SWITCH (DRIVE CYCLED UP). 

392 A. SWITCH TO PORT ‘A’ POSITION. VERIFY THAT THE DRIVE IS IN 

393 NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
$06 PORTS, ARE CORRECT. 

96 B. SWITCH TO PORT ‘B* POSITION. VERIFY THAT THE DRIVE IS IN 


97 NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
Be PORTS, ARE CORRECT. 
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C. 


TEST 
TEST 
A. 
B. 


C. 
D. 


TEST 
TEST 
A. 
8. 


RETURN THE ‘PORT SELECT® SWITCH TO THE ‘A/B" POSITION. VERIFY 
THE DRIVE STATE. 

7 TEST ‘PORT SELECT’ SWITCH LOCKED ON PORT A 

THE OPERATION OF THE ‘PORT SELECT’ SWITCH (DRIVE CYCLED DOWN). 

CYCLE THE DRIVE DOWN. 

SWITCH TO PORT ‘°A‘ POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

SWITCH THE "PORT SELECT’ SWITCH TO A; CYCLE THE DRIVE UP. 


WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-A° IS RESET, AND THAT 
‘ATA~A® IS SET. 


ee Pe CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
VERIFY THAT THE DRIVE CANNOT BE ert THROUGH PORT B AND 
"NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING 0°S 
INTO RMDS THROUGH PORT B. 
ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT A. 
10 TEST ‘PORT SELECT’ SWITCH LOCKED ON PORT B 
THE OPERATION OF THE "PORT SELECT’ SWITCH (DRIVE CYCLED DOWN). 
CYCLE THE DRIVE DOWN. 
SWITCH TO PORT ‘B* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 
SWITCH THE "PORT SELECT’ SWITCH TO B; CYCLE THE DRIVE UP. 


WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-B IS RESET, AND 
THAT ‘ATA=B IS SET. 


BORE A ORIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
"NED SETS i Ari TO ACCESS THE DRIVE THROUGH 
PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING 0°S 
INTO RMDS THROUGH PORT A. 


ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT B. 


SEQ 0010 
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457 H. CYCLE THE DRIVE DOWN. CHANGE THE "PORT SELECT’ SWITCH TO 
tes A/B; CYCLE THE DRIVE UP. 
460 1. VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION 
red BITS ARE SET, AND THAT BOTH ‘VV" BITS ARE RESET. 
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wal :*LAST REVISION 04-AUG-81 
510 .TITLE CZRNIAO RM80 DUAL PORT PT2 
:*COPYRIGHT (C) 1982 
; *DIGITAL EQUIPMENT CORPORATION 
;*COLORADO SPGS., CO. 80919 
: PROGRAM BY MIKE LEAVITT 
‘THIS PROGRAM WAS ASSEMBLED He NG A MAR THE PDP-11 MAINDEC SYSMAC 
; #PACKAGE (MAINDEC=-11=DZQAC-C5) -81 
511 :SBTTL OPERATIONAL SWITCH SETTINGS 
* SWITCH USE 
P+ GF 2 ae ae Seon oe ee Te SSSwneae - = 
2 - ge 15 HALT ON ERROR 
» 3* 14 LOOP ON TEST 
ze 13 INHIBIT ERROR TYPEOUTS 
* 11 INHIBIT I TERATIONS 
* 10 BELL ON ERR 
512 7* 9 LOOP ON ERROR 
513 -SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK = 1100 
104000 ERROR = EMT ::BASIC DEFINITION OF ERROR CALL 
000004 SCOPE = IOT 3:BASIC DEFINITION OF SCOPE CALL 
z *MISCELLANEOUS DEFINITIONS 
000011 HT 11 3:CODE FOR HORIZONTAL TAB 
000012 LF = 13 3:CODE oon LINE FEED 
000015 CR zs 15 +3COD E FOR CARRIAGE RETURN 
00200 CRLF = 200 sCODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS = 177776 *SPROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT = 177774 3 3STACK LIMIT REGISTER 
177772 = 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR = 177570 + HARDWARE SWITCH REGISTER 
177570 DDISP = 177570 3s HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO = 20 3;GENERAL REGISTER 
000001 R1 = %1 ?:GENERAL REGISTER 
0000 R2 = %2 GENERAL REGIS 
00000 R3 = %3 GENERAL REGIS 
000004 RG = %4 GENERAL REGISTER 
000005 RS = %5 + :GENERAL REGIST 
000 R6 = % GENERAL REGIS 
00000 R? = %7 GENERAL REGISTER 
000006 SP s 26 pep db K POINTER 
000007 PC =% +:PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 3B RIORITY LEVEL 0 
000049 PR1 = 40 ORITY LEVEL 1 
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BASIC DEFINITIONS 





5" SWITC IS 
W15 00 
00 
00 
00 
0 
0 
0 


UFR NLL DW Won 
SSOSOSSOOODSOOSOOOM FOLOLO 
SSSOSOOSOSDOOA SGOOSCOO 


“” 

= 

oS 

o 
nennnnnnnnnnnnnos 


Sssss 

ooo 
Sooo 
oo 


Sess 


0 08 0h 8 te Oe OF On On Oe Oe Oe Oe Sa oe 


SHH HNL HIF 


firipessarassaccauare 


eg fe tee fm Bee 


PrefestestesDeDetestetesTestesTesTeslerToslestosTestestesTes}) 
ee eerie! 
~oD 


beng Beara femme fren; boeg Us—e bag freed fey Meas deme, free hema be yen beg beng fee g beet beng fog 
SI Se SS SS SS 


T 
0 « 


3;PRIORITY LEVEL § 
3sPRIORITY LEVEL 
3sPRIORITY LEVEL 
3sPRIORITY LEVEL 
PRIORITY LEVEL 


ER*’ SWITCH DEFINITIONS 


rea BIT ae (BIT0O TO BIT15) 


SEQ 0013 
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BASIC DEFINITIONS 


PMNMIMVIUIUIVT 
PCy Cpe pet ee pet et pe 
=—OOOnauis 


WI 
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SERESOS 
: 


ses 


BBEEs 
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BIT4=BIT04 
BIT3=B1T03 
BITe=B1T 2 
BIT1=B1T01 
Bt TO=BL 100 
;*BASIC ''CPU'’ TRAP VECTOR ADDRESSES 
ERRVEC = 4 OUT AND OTHER ERRORS 
RESVEC = 10 ; ;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 :3°T"" BIT 
TRIVEC = 14 S TRACE TRAP 
TVEC = 14 :JBREAKPOINT TRAP (BPT) 
LOTVEC & i 31 NPUT/ OUTPUT TRAP (I0T) **SCOPE** 
EMTVEC = 30 :SEAULATOR TRAP (EMT) **ERROR** 
RAPVEC = 34 TRAP 
TKVEC = 60 erik KEYBOARD VECTOR 
TPVEC = $4 BITTY PRINTER VECTOR 
PIRQVEC = 240 + PROGRAM INTERRUPT REQUEST VECTOR 


~SBTTL RH CONTROLLER REGISTERS 
:CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE = 100 s INTERRUPT ENABLE (BIT #6) 

RDY = 200 ;READY (BIT #7) 

Al6 = 400 sHIGH ORDER BUS ADDRESS BIT (BIT #8) 
Al? = 1000 sHIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL = 2000 PORT SELECT at on #10 

MCPE = 20000 ZMASSBUSS PARITY tee 3 err #13) 
TRE = 40000 7 TRANSFER ERROR (BIT # 

sc = 100000 SPECIAL CONDITION (ait *5) 


sWORD COUNT REGISTER (RMWC) 
3(EACH BIT IS CALLED BY BIT NUMBER) 


sBUS ADDRESS REGISTER (RMBA) 
3(EACH BIT IS CALLED BY BIT NUMBER) 


:CONTROL AND STATUS REGISTER 2 (RMCS2) 


u0 =1 sUNIT SELECT (BIT & 

Ul =2 sUNIT SELECT (BIT aie 

U3 = 4 sUNIT SELECT (BIT &#> 

BAI = 10 BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
PAT = 20 MASSBUS ag NY TEST (BIT #4) 
CLR = 40 sCLEAR (BIT #5) 

IR = 100 : T READY (BIT #6) 

OR = 200 sOUTPUT READY (BIT #7) 

MDPE = 1 sMASS PARITY ERROR (BIT #8) 
MXF = 1000 3MISSED TRANSFER ERROR (BIT #9) 
PGE = 2000 ; ER (BIT #10) 

NEM = 4000 3NON EXISTENT MEMORY (BIT #11) 
NED = 8) 8 3NON_EXISTENT DRIVE (BIT #12) 
UPE =2 ZUNIBUS PARITY ERROR (BIT #13) 
WCE = 18005 WRITE CHECK ERROR (BIT #14) 
DLT = 100000 DATA LATE (BIT #15) 


Ga estat aan eed 
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55 

55 sDATA BUFFER REGISTER (RMDB) 

eee 3 (EACH BIT IS CALLED BY BIT NUMBER) 

228 -SBTTL RM80 REGISTERS 

225 :CONTROL AND STATUS 1 REGISTER. (400) 

560 1 GO =] 360 BIT (BIT #0) 

561 2 FO =2 sFUNCTION CODE B 

206 Fi =4 sFUNCTION CODE BIT # 

6 000010 F = 10 sFUNCTION CODE BIT # 

564 000020 F = 20 sFUNCTION CODE BIT #4 

565 000040 F4 = 40 sFUNCTION C BIT 

206 004000 DVA = 4000 DEVICE AVAILABLE (BIT #11) 

4 sDRIVE STATUS REGISTER (RMDS) (#01) 

570 3DF5 =1 DRIVE FORWARD 5°'/SEC. (BIT #0) 
571 000002 DFF20 =2 sDRIVE FORWARD 20°'/SEC. oT iy 
276 000004 DIGB = 4 DRIVE TO INNER “—_ BAND (BIT #2) 
5 000010 GRV = 10 G0 REVERSE (BIT # 

574 000020 DL64 = 20 DIFFERENCE LESS THAN Am (BIT #4) 
575 000040 DE1 = 40 3DIFFER ENCE coms 1 ¢ #5) 
576 000100 vv = 100 sVOLUME VALID (BIT ss 

577 000200 DRY = 200 DRIVE READY (BIT #7) 

578 000400 DPR = 400 3DRIVE PRESENT (BIT #8) 

579 001000 PGM = 1000 OGRAMABL 

580 002000 LBT = 2000 SLAST SECTOR TRANSFERRED (BIT #10) 
581 004000 WRL = 4000 WRITE LOCK (BIT #11) 

582 010000 MOL = 10000 {MEDIUM ON-LINE (BIT #12) 

583 020000 PIP = 20000 3POSITIONING Vo ION_IN PROGRESS (BIT #13) 
584 040000 ERR = 40000 ;COMPOSITE ERROR (BIT #14) 

363 100000 ATA = 100000 ATTENTION ACTIVE (BIT #15) 

255 sERROR REGISTER #01 (RMER1) (#02) 

589 000001 ILF =1 sILLEGAL FUNCTION (BIT #0) 

590 000002 ILR =2 sILLEGAL REGISTER (BIT #1) 

591 000004 RMR = 4 sREGISTER eT ae REFUSES (BIT #2) 
592 000010 PAR = 10 PARITY ERROR (BIT #3) 

593 000020 FER = e8 T ERROR (BIT #4) 

594 000040 WCF = 40 3WRITE CLOCK FAIL (BIT #5) 

595 000100 ECH = 100 ; ERROR (BIT 

596 000200 HCE =2 sHEADER COMPARE ERROR (BIT #7) 
597 000400 HCRC = 4 sHEADER CRC ERROR (¢ 

598 001 AOE = 1000 sADDRESS OVERFLOW ERROR (BIT #9) 
599 002 IAE = ; rf ID ADDRESS ERROR (BIT #10) 
600 sett WLE = sWRITE LOCK ERROR ( 

601 10000 OTE =1 sDRIVE TIMING ERROR (8 1 

602 020000 OPI =2 A TION pec (BIT #13) 
603 rss UNS = 4 RIVE UNSAFE (BIT 

one 1 DCK =1 {DATA CHECK ERROR (BIT 15) 

ope sMAINTAINABILITY WcGISTER (RMMR1) (403) 

608 000001 DMD =1 sDIAGINOSTIC MODE (BIT #0) 


oO 
~ 
2 
> 


I 


RM80 REGISTERS 
609 
610 
eI 000001 
13 000002 
614 000004 
615 00001 
616 00002 
617 000040 
618 000100 
619 000200 
620 
621 
622 
625 
624 
625 
626 000001 
627 000002 
628 000004 
62° 000010 
630 000020 
631 000040 
632 000100 
635 000200 
634 000400 
635 004000 
636 020000 
637 040000 
638 100000 
639 
640 
641 ; 
642 000100 
643 000200 
644 000400 
645 001000 
646 002000 
647 
648 
649 
650 000010 
651 000200 
65 2000 
65 000 
654 010000 
655 020000 
656 100000 
657 
658 
659 
660 000200 
661 002000 
66 004000 
66 010000 
664 
665 


D2 
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zATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 


ATO =1 sDEVICE 0 (BIT 40) 
AT =2 :DEVICE 1 (BIT #1) 
AT = 4 sDEVICE § (BIT $3) 
AT = 10 sDEVICE 3 (BIT #3) 
Als = 20 eevice é ¢ IT #4) 
ATS = 40 2DEVICE BIT #5) 
AT = 100 DEVICE & (BIT as) 
AT = 200 sDEVICE 7 (BIT #7) 


sDESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (405) 
3(EACH BIT IS CALLED BY BIT NUMBER) 


zDRIVE TYPE REGISTER (RMDT) (#06) 


DT00 =1 sDRIVE TYPE NUMBER BIT 1 

DT01 =2 sDRIVE TYPE NUMBER BIT § 

DTO = 4 sDRIVE TYPE NUMBER BIT 

DTO = 10 sDRIVE TYPE NUMBER BIT 4 

DT04 = 20 sDRIVE TYPE NUMBER BIT 5 

DTO5 = 40 sDRIVE TYPE NUMBER BIT 6 

DT06 = 100 sDRIVE TYPE NUMBER BIT 7 

DT07 = 200 sDRI hi NUMBER BIT g 

DT08 = 400 sDRIVE TYPE NUMBER BIT 

DRQ = 4000 SDRIVE REQUEST REQUIRED (BIT #11) 
MOH = 20000 ;MOVING HEAD oe + 

TAP = 40000 sTAPE DRIVE (BIT #14) 

NBA = 100000 NOT BLOCK ADDRESSED (BIT #15) 
zLOOK@AHEAD REGISTER (RMLA) (#07) 

sco = 100 sSECTOR COUNT FIELD 0 (BIT #6) 
sci = 200 ZSECTOR COUNT FIELD 1 (BIT #7) 
ste = 400 sSECTOR COUNT FIELD § (BIT #8) 
sc = 1000 sSECTOR COUNT FIELD 3 (BIT #9) 
$c4 = 2000 ZSECTOR COUNT FIELD 4 (BIT #10) 
7RM ERROR REGISTER #2 (RMER2) (#10) 

DPE = 10 3DATA PARITY ERROR (BIT #3) 
DvC 5 $05 DEVICE CHECK 

LBC = B00 3LOSS OF BIT CLOCK (BIT #10) 
LSC = 4000 LOSS OF SYSTEM CLOCK (BIT #11) 
Ivc = 1000 ZINVALID COMMAND (BIT #12) 

OPE =2 ZOPERATOR ERROR (BIT #13) 

SKI = 100000 sSEEK INCOMPLETE (BIT #14) 
sOFFSET REGISTER (RMOF) (#11) 

OFD = $08 s OFFSET FORWARD (BIT #5) 

HCI = 2000 HEADER COMPARE INHIBIT (BIT #10) 


cl. 2 ie TERROR CORRECTION CODE INHIBIT (BIT #11) 
FATI6 == 10000 SEARO cone 11: gh planes ge 


sDESIRED CYLINDER ADDRESS (RMDC) (#12) 
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RMSO REGISTERS 


3 (EACH BIT IS CALLED BY BIT NUMBER) 


3SERIAL NUMBER REGISTER (RMSN) (414) 
3 (EACH IS CALLED BY BIT NUMBER) 


sECC POSITION REGISTER (RMEC1) ob 
; (EACH BIT IS CALLED BY BIT NUMBER) 


sECC PATTERN REGISTER ete? (#17) 
3 (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


RMCS1T =0 sCONTROL AND STATUS REGISTER #1 gts REG. 00) 
RMWC =2 WORD COUNT REGISTER (NOT A nee REG) 

RMBA =4 SUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

RMDA = 6 DESIRED AY Aly ADDRESS ee (DRIVE REG. 05) 
RMCS2 = 10 sCONTROL_AND STATUS REGISTER #2 (NOT A DRIVE REG) 
RMDS = 12 DRIVE STATUS REGISTER (DRIVE REG On) 

RMERT = 14 © ERROR REGISTER #1 (DRIVE REG. 02) 

RMAS = 16 sATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
RMLA = 20 sLOOK AHEAD REGISTER (DRIVE REG. 

RMDB = 22 ang BUFFER REGISTER (NOT A DRIVE REG.) 

RMARIT == 24 MAINTAINABILITY REGISTER (DRIVE REG. 03) 

RMDT = 26 {DRIVE TYPE REGISTER (DRIVE REG. 06) 

RMSN = 30 sSERIAL NUMBER REGISTER oon REG. 10) 

RMOF = 32 OFFSET REGISTER (DRIVE R 

RMDC = 34 DESIRED CY wt ADDRESS REGISTER (DRIVE REG. 12) 
— = 40 3 MAINTENANCE yi tS (DRIVE ass. 14) 

RMER = 42 ; ERROR REGISTER & (DRIVE REG. 

RMECT = 44 CC POSITION REGISTER (DRIVE Ree. 16) 

RMEC2 = 46 SECC PATTERN REGISTER (DRIVE REG. 17) 
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1 -SBTTL TRAP CATCHER 


000000 -=0 ' 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"’ 
z*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
z*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 = 
000174 000000 DISPREG: .WORD 0 z3SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 33SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
5 000200 000137 001766 JMP @ASTART 33 JUMP TO STARTING ADDRESS OF PROGRAM 
? 000204 000137 001776 JMP @ASTARTI ;START AND CHANGE THE RH/RM ADDRESS 
5 -SBTTL ACT11 HOOKS 
PITTI iii tiiiiiiiiiiiiet 
3HOOKS REQUIRED BY ACT11 
e's Ab SSVPC=. 3SAVE PC 
000046 Oia18 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 020000 WORD 20000 332)SET LOC.52 TO 20000 
000210 -=$SVPC 33 RESTORE PC 


é G 2 
CZRNIAO_RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 6 SEQ 0019 
COMMON TAGS 
0 -SBTTL COMMON TAGS 


© RAAREAEAAERAEAEREREEEEEEEEREEEEAREREAERARAERAREREAERAREREREREREREREEE 


[*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


001100 -=1100 

001100 SCMTAG: z3START OF COMMON TAGS 

001100 000000 SPASS: D Oo ::CONTAINS PASS COUNT 

Oot 106 000 STNM: .BYTE 0 s:CONTAINS THE TEST NUMBER 

00110 000 SERFLG: .BYTE 0 zs: CONTAINS ERROR FLAG 

001104 000000 ICNT: . 0 s:CONTAINS SUBTEST ITERATION COUNT 

001106 000000 LPADR: .WORD 0 3s :CONTAINS SCOPE LOOP ADDRESS 

001110 000000 LPERR: . 0 s:CONTAINS SCOPE RETURN FOR ERRORS 

001112 000000 SERTTL: .WOR 0 : CONTAINS TOTAL ERRORS DETECTED 

001114 000 SITEMB: .BYTE 0 s:CONTAINS ITEM CONTROL 

001115 001 ERMAX: .BYTE 1 3: CONTAINS E s 

001116 000000 SERRPC: .WORD 0 s:CONTAINS PC OF LAST ERROR INSTRUCTION 

001120 000000 SGDADR: .WORD 0 3:2 CONTAINS RESS OF 

001122 000000 ADR: .WORD 0 s:CONTAINS ADDRESS OF ‘BAD’ DATA 

001124 000000 SGDDAT: .WORD 0 3 ;CONTAI : . 

001126 000000 SBDDAT: .WORD 0 z:CONTAINS “BAD® DATA 

001130 000000 eWORD 0 3: ;RESERVED--NOT TO BE USED 

001132 000000 eWORD 0 

001134 oN U' JB: .BYTE 0 s AUTOMATIC MODE INDICATOR 

001135 SINTAG: .BYTE 0 zz INTERRUPT MODE INDICATOR 

001136 000000 eWORD 0 

001140 177570 SWR: eWORD ODSWR sZADDRESS OF SWITCH REGISTER 

001142 177570 DISPLAY: .WORD DDISP s:ADDRESS OF DISPLAY REGISTER 

001144 177560 $TKS: 177560 ::TTY KBD STATUS 

001146 177562 $TKB: 177562 a3 KBD BUFFER 

001150 177564 STPS: 177564 szTTY PRINTER STATUS REG. ADDRESS 

001152 177566 $TPB: 177566 sz TTY PRINTER BUFFER REG. ADDRESS 

001154 000 SNULL -BYTE 0O s:CONTAINS NULL CHARACTER FOR FILLS 

001155 002 SFILLS: .BYT 2 ssCONTAINS # OF FILLER CHARACTERS REQUIRED 

001156 012 SFILLC: .BYT 12 sz INSERT FILL CHARS. AFTER A he FEE 

001157 000 STPFLG: .BYT 0 32" "TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 

-001160 000000 SREGAD: . 0 ::CONTAINS THE ADDRESS FROM 
s:WHICH (S$REGO) WAS OBTAINE 

001162 000000 SREGO: .WORD 0 s:CONTAINS ((S$RE 

001164 . 000000 STMPO: .WORD 0 33 DEF INED 

got ige 000000 STMP1: .WORD 0 33 DEFINED 

0011 000000 STMP2: .WORD 0 sUSER DEFINED 

001172 000000 STMP3: .WORD 0 sUSER DEFINED 

001174 000000 STMP4: .WORD 0 s:USER DEFINED 

001176 000000 STIMES: 8 ::MAX. NUMBER OF ITERATIONS 

001200 000000 SESCAPE: :2:ESCAPE ON ERROR ADDRESS 

001202 oor 377 377 $BELL: .ASCIZ <207><377><377> ;:CODE FOR BELL 

001206 77 SQUES: .ASCII /2/ sZQUESTION MARK 

001207 015 SCRLF: .ASCII <15> 3s: CARRIAGE RETURN 

001210 012 000 SLF: ASC < s:LINE FEED 


: > 
° ee 
J EEARRARAARAAAAAAERARAAEEEREAAERERERERREERAARERERAERAREERERAREERE ES 
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-SBTTL USER DEFINED TAGS 


001212 172540 SLKCSR: .WORD 17254 ADDR OF KW11-P STATUS REGISTER 
001214 172542 SLKCSB: {WORD 17254 ZADDR OF KW11-P COUNTER BUFFER 
001216 104 SLPVEC: :WORD 104 TADDR OF KW11-P VECTOR 
001 g 177546 SLKS:  .WORD 177546 TADDR OF KWil-L STATUS REGISTER 
001222 000100 SLLVEC: .WORD 100 : TADDR OF KW11-L VECTOR 
001224 000000 TA: .WORD 0 ADDRESS OF PORT A 
001226 000000 PORTB: .WORD 0 ADDR 
001230 000000 “WORD 0 TADDRESS OF DIFFERENT DRIVE 
001232 000000 ASR1:  .WORD 0 TATATA “8 = 
001234 000000 : [WORD 0 CONT PORT ESS FOR ERROR TYPEOUTS 
001236 000000 SEIZPT: .WORD 0 [CONTAINS THE ADDRESS OF THE SEIZING 
901240 000000 : SWORD 0 :CONTAI ™ ADDRESS OF THE "OPPOSITE PORT 
001242 000000 TSTNUM: .WORD 0 “NUMBER OF THE CURRENT T 
001246 900000 CKERR: .WORD 0 TIF <1, A REGISTER MI SCOMPARISON OCCURRED 
001246 NOSEIZ: .WORD 0 [IF <1. THE PORT IN 'SEIZPT’ DID NOT SEIZE THE DRIVE 
001250 000000 RELERR: .WORD 0 1 THE PORT IN *SEIZPT* DID NOT RELEASE THE DRIVE 
001252 000000 “WORD 0 ‘ELAPSED TIME COUNTER 
001254 000000 TCH: <:WORD 0 SWATCH DCS TIMER LOCATION 
1256 000000 TIMEA: .WORD 0 ZTHE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
001260 000000 TIMEAP: .WORD 0 “PORT A TIMEOUT VALUE + 
001262 000000 Tl "WORD «(0 2TH E TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B 
001264 000000 TIMEBP: :WORD 0 PORT B TIMEOUT VALUE + 25% 
001266 000000 KYBCTL: .WORD 0 ?SINGLE TEST INDICATOR 
001270 000000 : :WORD 0 *CHANGE THE RH/RM ADDRESS INDICATOR 


-SBTTL RH/RM UNIBUS AND VECTOR ADDRESSES 


001272 176700 SRMADR: .WORD 176700 3RH/RM UNIBUS ADDRESS 
001274 000254 SRMVEC: .WORD 254 ZINTERRUPT VECTOR ADDRESS 


' 001276 
2 
3 
& oore7e 
5 001300 
6 001302 
7 001304 
8 
9 
10 
11 001306 
12 001310 
13 001312 
14 001314 
15 
16 
17 
18 001316 
19 001320 
20 001322 
21 001324 
22 
25 
é4 
25 001326 
26 001330 
27 001332 
23 001334 
31 
% 001336 
Mi 001340 
001342 
i 001344 
39 001346 
40 901325 
41 00135 
42 001354 


024560 
024771 


020520 
020571 
023245 


024560 
024771 


024576 
024777 


oi 
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-SBTTL ERROR POINTER TABLE 

:*THIS TABLE CONTAINS THE INFORMATION + EACH ERROR THAT CAN OCCUR. 

3*THE INFORMATION iS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE as IS PERTINENT. 
; *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA_IS (SERR 

3 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


* EM :3POINTS TO THE ERROR MESSAGE 
* DH : POINTS TO THE DATA HEADER 
* TS TO THE DATA 
* 


DF POINTS TO THE DATA FORMAT 

EM1 DRIVE IS NON-EXISTENT (*NED* BIT SET) 

EM2 sWRONG DRIVE TYPE 

zPORT SELECT SWITCH ON DRIVE NOT IN °A/B° 

EM4 sDRIVE NOT ON LINE 

EMS 3SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME 


zTIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 


gees 


sie 


SELARLVASSUIEMLUNASSSLSGRE 
8832 
—_— 
Seri 
#£No 


wron— 
RVSS 


9 


Ls 


98 001452 
99 001454 


Oconee 747 
6 057629 
038009 


021014 


024634 
025004 


021451 


sie 
025004 


sERROR 7 


EM12 


EM16 


| J 
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zTIMEOUT ONE-SHOT IS LESS THAN 500 MS 


zREADIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT 


3°GO" BIT RESET DURING UNLOAD COMMAND 


z INCORRECT STATUS DURING UNLOAD COMMAND 


DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND 


zATTENTION BIT SET ON ‘OPPOSITE PORT’ AFTER UNLOAD 


zATTENTION BIT NOT SET ON PORT WHICH ISSUED ‘UNLOAD’ 


sDRIVE_NOT IN NEUTRAL AFTER Sy ed WITH ‘PORT 
ZSELECT’ SWITCH MOVED FROM ' 


SEQ 0022 


' Kk 2 
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100 
13 ERROR 17 
19 001456 oer —M17 sDRIVE LOCKED ON PORT ‘A‘ BY SWITCH WHILE CYCLED UP 
104 001460 023660 DH17 
105 001462 024662 DT17 
108 001464 025021 DF17 
1 ERROR 20 
110 001466 021654 EM2 DRIVE LOCKED ON PORT 'B" BY SWITCH WHILE CYCLED UP 
111 001470 023660 DH1 
ie 001472 024662 DT17 
HS 001474 025021 DF17 
12 ERROR 21 
117 001476 021737 EM21 sSTATUS INCORRECT FOR PORT AFTER CYCLE UP 
118 001500 023174 DH1 
119 001502 024544 DT1 
1s 0015 024764 DF1 
ig ERROR 22 
124 001506 022010 EM22 REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON ‘OPPOSITE* PORT 
125 001510 023174 DH1 
126 001512 024544 DT1 
igf 001514 4764 DF1 
44 sERROR 23 
131 oO13t6 106 EM23 "NED" SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED 
132 001520 023174 DH1 
-133 001522 024544 DT1 
i 001524 024764 DF1 
136 ZERROR 24 
138 001526 oceeol EM24 DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 
139 0015. 023677 DH24 
140 001532 024670 DT24 
19) 001534 025007 DF 
137 sERROR 25 
145 001536 022261 EM25 z:RH/RM DIDN'T RESPOND TO ADDRESSING 
146 001540 pea DH25 
147 001542 02470 pT25 
4 001544 02502 DF25 
158 ERROR 26 
001546 000000 UNUSED ERROR MESSAGES 
OO 12e5 ieee 
00155 000 0 
001554 000000 0 


001556 
001560 
001562 
001564 
159 
160 
161 001566 
lée 001570 
163 001572 
164 001574 
165 
166 
167 
168 001576 
169 001600 
170 001602 
171 001604 
172 
173 
174 
175 001606 
176 001610 
177 001612 
178 001614 
179 
180 
181 
4 001616 
183 001620 
184 001622 
185 001624 
186 
187 
188 
189 001626 
190 001630 
191 001632 
192 001634 
193 
194 
195 
196 001636 
197 001640 
198 001642 
199 001644 
200 
201 
20. 
203 001646 
204 001650 
205 Oo 63¢ 
206 001654 
207 ‘ 
208 


0 
024771 


022423 
023245 
024560 
024771 


022453 
023174 
024544 
024764 


922673 
~Re2e7 
024740. 


* 025007 © 
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sERROR 27 
0 


0 


0 
ERROR 30 


sERROR 37 


2 


sUNUSED ERROR MESSAGES 


:DRIVE NOT SEIZED BY PORT ‘N’ 


sWRONG STATUS SEEN BY THE SEIZING PORT 


sREGISTER CONTENTS INCORRECT 


CONTROL BUS PARITY ERROR WHILE READING REGISTER 


3CAN'T ACCESS DRIVE THROUGH EITHER PORT 


DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 


sDRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 


SEQ 0024 
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ERROR POINTER TABLE 


209 
$19 001656 022760 EM37 sREGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 
11 001660 024324 DH37 
sig 001662 094706 D730 
Siz 001664 025024 DF30 
siz sERROR 40 
217 001666 023041 EM40 DRIVE NOT SEIZED BY PORT AFTER RELEASE WITH REQUEST SET 
218 001670 024446 DH40 pte gti 
219 001672 024752 DT40 
sso 001674 025007 DF7 
$56 sERROR 41 
224 001676 023116 EM41 sREGISTER WRONG AFTER RELEA TH REQUEST SET 
225 001700 024011 DH30 ' enemas meee: 
226 001702 024706 DT30 
534 001704 025024 DF30 
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3THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
BADTMO: MOV (SP) .RO sSAVE PC Bay THE TIME OUT OCCURED 
TST =(R ADJUST 
CMP (SP) +, (SP)+ ZRESTORE PSTatK POINTER 
TYPE 65$ TYPE ASCIZ STRING 
BR 4$ GET OVER THE ASCIZ 
bis" eASCIZ ore ro sumexrecteb’ BUS TIMEOUT, PC=/ 
RO,-(SP) zSETUP FOR TYPING OUT PC 


:PUT "HALT(O)* INSTRUCTION HERE IF YOU WISH 
[TO STOP ON UNEXPECTED TIMEOUT. 


Qusewn— 


sees ssese 


MOV 
TYPOC 
NOP 


-SBTTL START OF PROGRAM 


START: NOP 
001270 CLR CHGADR 3 CLEAR Ly "CHANGE RH/RM ADDRESS’ INDICATOR 
' BR START2 360 TO THE 
177777 001270 START1: MOV #-1,CHGADR 7SET THE ‘CHANGE RH/RM ADDRESS’ INDICATOR 


000000 START2: INC #0, TTY LOOP, WAIT FOR INCREMENT 
RESET — ori THE WORLD 


-SBTTL a Ap ee THE COMMON T. 
33CLEAR THE COMMON TAGS CSCRTAG)” AREA 
001100 MOV #SCMTAG,R6 ssFIRST LOCATION TO BE CLEARED 
CLR (R6)+ ;CLEAR MEMORY LOCATION 
001140 CMP me 33 


BACK IF NO 
001100 SETUP THE STACK POINTER 
: INITIALIZE A FED MMectoRS 


013550 #SSCOPE san, 3107 VECTOR FOR SCOPE ROUTINE 
_ #340, a#fOTVEC+2 ::LEVE 
#SERROR ,asEMTV +5 sent VECTOR FOR ERROR ROUTINE 
#346 OR EATVeT : LEVEL 
#STRAP ,a# TRAP EC * s TRAP VECTOR FOR TRAP CALLS 
#340 BA TRAPVECS LEVEL 
SENDCT ,SEOPCT S:SETUP, ND=OF=PROGRAM COUNTER 
TIMES * INITIALIZE NUMBER OF ITERATIONS 
z3CLEAR THE ESCAPE ON ERROR ADDRESS 
LOW ONE ERROR PER TEST 
S: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV SLPERR * SETUP THE ERROR LOOP ADDRESS 
s:SIZE FOR A} HARDUARE SWITCH neciifene 1 T FOUND OR IT 
S:EQUAL TO A '=1'', SETUP FOR A A SOF (WARE SWITCH REGISTER. 
MO Pp ERROR VECTOR 


WN —SCVONAUSWN—O0ON 


ROPINID SB PM POP OP Pw 


01 
0 

00 
01 
01 
01 
01 
01 
01 
1 
1 


NNN 


So=s 
wo 


V #DSWR, SUR 
17757 #0D1SP, DISPLAY 
137300 #4 SsOR. mA 


Seoscs 
=nonononuw 
VON 
NNO 


So 
= 


65 
002206 : #68, (SP) 


Sue 
-S 
Mow fr 





00 
46 002474 
47 002500 


ase 
eh 
48 002510 
49 002514 
50 002522 
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o 


2290022 
SR 
S 
— 
im 


seer 00 


000174 
00004 


001706 
000300 


177777 
013316 
002266 


000042 
001140 


000001 
015774 


Ooi t42 


00006 


000042 


000176 


001134 


000007 


001226 
001226 





SEQ 0027 


65$: MOV SWR :3POINT TO SOFTWARE SWR 
MOV so tcenee DISPLAY 
66$: MOV (SP)+,@MERRVEC ;;:RESTORE ERROR VECTOR 


sSETUP ‘TIMEOUT’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
TMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
MOV #PR6, ERAVECSS SLEVEL 6 
.SBTTL TYPE PR 


OGRAM NAME 
33 TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #1 s3FIR eae TIME? 


ggg8S: 
SBTTL 


69$: 
70$: 
1$: 


2s: 


CMP 
BEQ 
TYPE 


eASCIZ <CRLF>@CZRNIAO - 


a75. 
ASENDAD ,a#42 


67$ 
8$ 
$ 


H IF NO 
IACT -11? 


* ;BRANCH 
:ETYPE A ASCIZ STRING 
OVER THE ASCIZ 
*aS60 DUAL PORT TEST, PT 2a<CRLF> 


ser Pres Ha SOFTWARE SWITCH REGISTER 


69$ 
SWR,ASWREG 
70$ 


70$ 

#1,$AUTOB 
PC, STKINT 
PC, CHANGE 


oENTERA 
(SP)+,PORTA 
POR 7 


POR 
BOR TAS SP) 
1 

0 

PORTBIS 
PORTB,-(SP) 
1 

O ScRLE 
PORTA 


#6,P0 


PORTC 
PORTC 


3 3ARE WE RUNNING UNDER XXDP/ACT? 
sBRANCH IF YES 
i SOFTWARE, SuiTCH REG SELECTED? 


ee NO : 

33GET SOFT-SWR SETTINGS 

33SET AUTO-MODE INDICATOR 
sSETUP THE TTY KEYBOARD 
3CHECK/CHANGE THE RH/RM ADDRESS 
saree DRIVE ADDRESS 

GET THE ences 

ZSTORE THE ADDRESS 

SEE r ADDRESS TOO LARGE 

3 TYPE — ERROR MESSAGE 


:GENERATE THE PORT B ADDRESS 
S INCREMENT THE ADDRESS 


sLEAVE 
sPUT PORT A_ADDRESS ON THE STACK 


7SAVE BITS 1 
3SET ate 1 & 2 IN PORT B ADDRESS 
3 "PORT DRES 


eT ADDRESS 34 DRIVE NOT TESTED 
[COMPLEMENT SOME BITS 


ge lay RM8O DUAL_PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-2" 


T VALUE FOR SOFTWARE 


FATSSSSS 
assesses 


78 
79 002676 
80 ithe 


2 s88 
33 


Sssss 


BSLESELRARAT= 
MUPOROPONONY 


ssss 


18701 


_ 
Sooo. 
SNS 


WWW 


&—-Noooo— 


= 
zs 


N 
“I 
o 


SWITCH REGISTER 


177770 


2 38ssx 


3 


66 
001100 
000001 


003074 
025070 
017773 


001230 
001232 


001104 


BIC #°C7,PORTC 
MOV PORTA,R 
MOVB ATABIT(R1),ASR1 
CLR TIMEA 
CLR TIMEAP 
CLR TIMEB 
CLR TIMEBP 
JSR PC, CKCLK 
JMP EXE 
TYPE §,NOCLOCK 
3$: HALT 
BR 3$ 
sROUTINE TO GET 
EXEC: RESET 
the Bene 
MOV SRMADR,RO 
MOV #STACK,SP 
JSR PC, CKCLK 
NOP 
JSR PC, $TKINT 
CLR KYBCTL 
CLR SPASS 
MOVB #1. SERMAX 
MOV #. .SLPADR 
MOV #. .SLPERR 
1$: TYPE  ,TESTNO 
RDOCT 
MOV (SP)+,R1 
BNE 
JMP TSTIAA 
2$: CMP R1,MAXTN 
BLE 3$ 
TYPE BADNO 
BR is 
3$: DEC R1 
ASL R1 
INC KYBCTL 
MOV #1,$ICNT 
MOV #PRS,-(SP) 
MOV #64$,-(SP) 
RTI 
64$: 
JMP @TSTADR(R1) 
: CHANGE 
CHANGE: TST CHGADR 
BEQ $ 
is: be OB 
MOV $RMADR,-(SP) 
TYPOC 


3 


sSAVE ONLY LOWER BIT 
PORT A_AD AS_INDEX 


3U DRESS 

GET ATTENTION BIT FOR DRIVE 
sCLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
*CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 


2 CLEAR 

: CLEAR a ONE=SHOT VALUE LOCATION 
3CLOCK HAS . STARTED 

3NO_CLOCK ON SYSTEM 


3FA ERROR 
ZINTERLOCK THE HALT 


THE TEST NUMBER FROM THE OPERATOR 


sCLEAR EVERYTHING 
CLEAR THE PROCESSOR STATUS WORD 


CRLF 

ZRH/RM_ ADDRESS FOR INDEXING 
sLOAD STACK POINTER 

sSTART THE 

sRET IF 

s INITIALIZE THE KEYBOARD 
CLEAR sine TEST INDICATOR 
CLEAR TH HE PASS COUNT 


ERROR MAX TO 
ZINITIAL SETTING FOR LOOP ADDRESS 
ZINITIAL SETTING FOR LOOP ON ERROR ADDRESS 


sASK FOR TEST NUMBER 

[GET THE NUMBER 

PUT ENTRY INTO R1 

SENTER ZERO = PERFORM ALL TESTS 


3SEE_IF NUMBER GREATER THAN MAXIMUM 
Bhp Teth Les OR EQUAL 


sTRY AGAIN 

SDECREMENT ENTRY 

sSHIFT IT L 

7SET SINGLE TEST INDICATOR 

3PRESET ITERATION COUNT 
NEW P. STACK 


3PUT S ON 
:tpur NEW PC ON STACK 
33POP NEW PC AND PS 


: JUMP TO TEST 


THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 


sCHANGE THE ADDRESS ? 
IF NOT 


sCLEAR THE INDICATOR 
STYPE OUT WHAT THE PRESENT ADDRESS IS 
ZPUT THE ADDRESS ON THE STACK 

7TYPE THE ACTUAL ADDRESS 


SEQ 0028 





ate 


2 
s 
5 


< 
= 
fi 


sssesessssss 
za ® 


eeee 
FEVANVEVALNG 


Ss 
3S 


eer eee rt | 
SOON ARUVACSRVRAF 


Se 


S 
3 


WYuinssa> ad od od od 
Noro 


—oh a = 
Se 
Sees 
es 


nn 
——o 3 


ARE 


G=LSkLRE = 


S228285 
wn 


Be 


04 


Nee 


a 


SWITCH REGISTER 


Suit 


000006 $8: 
4$: 


000004 5$: 


RTI 


Dd 
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»SCRLF 
*NTRH 
(SP) 
2s 
(SP) , SRMADR 
(SP) + 
#630846 

RO 
pwc (RO) 


SRMADR RO 
#PR5 ,~(SP) 
#64$,-(SP) 


3CR- 


LF 
zASK FOR NEW ADDRESS 
30 OR ‘CR® ENTERED 


? 
7BR IF EITHER ENTERED (NO ADDRESS CHANGE) 
;NEW RH/RM ADDR 


: ESS 
CORRECT THE STACK POINTER 
3LOAD TRAP ADDRESS 
3GET RH/RM ADDRESS 


sRESPOND 
BR IF 


S_AT THAT ADDRESS ? 
YES 


sRESET THE STACK POINTER 
DRESS AGAIN 


3GET_ADDRES 
sRESTORE THE VECTOR 
; RETURN 


3sPUT NEW PC ON 


3:RESTORE RO AFTER END OF PASS 
NEW PS ON STACK 


STACK 


33POP NEW PC AND PS 


$ ERRARAEREREERERERERREREREREREREEREREREERAEREEERERERERARAERRARARERER 


: DRIVE ACCESS TEST 
;*VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 


SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
THAT THE DRIVE IS ONLINE ( 


S*TEST 1 


3 
;* 
3% 
;* 
3% 
;* 


1266 1$: 
11 2s: 
Oo1170 


A. 


TST1: 


TEST1: 


s VERIFY 


DRI 
*m0 


VE IS A 
L*, *PGM’ 


"pPR’, & "DRY BITS SET) 
NUMBER READ THROUGH BOTH PORTS IS THE 


AND THE THE oRIve 
SAME. 


THE TEST IS REPEATED THROUGH BOTH PORTS. 

© RERRARAARAREEREAREREEREEEEAEERAEEEREAREERARREEREREEERERRAEEREREREEKE 
sPERFORMING ONLY SINGLE TESTS ? 
BR IF JUST ENTERED TEST 


MOV 


MOVB PORTA, RMCS2(RO) 
-move 


MOV 


KYBCTL 
es 
1$ 


#~1, KYBCTL 
#TEST1,SLPADR 
#TEST1,SLPERR 


#1, $TSTNM 
#STACK, SP 
#1,STIMES 


#CLR,RMCS2(RO) 


PORTA, PTNBR 


SET SINGLE T 
: SCOPE 


SETUP 


XT TEST_NUMBER 
EST INDICATOR 
LOOP ADDRESS 


7SETUP ERROR LOOP ADDRESS 


sMOVE #1 TEST NUMBER 
sSETUP THE STACK POINTER 


33D0 1 ITERA 


TION > 


3CLEAR MASSBUS 
THAT DRIVE IS PRESENT THROUGH PORTS A & B 


sSELECT POR 
PORT ADDRE 


A 


HAS 
SERIAL 


T 
SS TO LOCATION FOR TYPEOUT 


SEQ 0029 


ht 
4 
os 
5 

Vin wo 
3 2g 
a4 

mn 


° 
zz 
= 
= 
» 
o 
o 
m 


aod 


Ww 


Ss ratototetototattot ot tot 
NOVFOW 
238 


~~ 
SSARAS AI 


ae 


S 


NRG 


SS 


—_— 
& 
oS 


"3 


S 


o— 
eh et 
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l2 TST RMDS (RO) :SEE IF pPRIVE (PORT A) PRESENT 
124 CLR CKERR [CLEAR THE CHECK ERROR’ INDICATOR 
1 001126 MOV RMCS2(RO),SBDDAT’ :GET CONTENTS 0 s 
10 001122 MOV #RMCS2,$BDADR ;FORM REGISTER ADpRESS OF ERROR MESSAGE 
11 ADD zADD RH/RM BASE ADDRESS 
1126 CLR SGDDAT : T REG SHOULD BE 
1126 001164 MOV SBDDAT, T STMe REGISTER CONTENTS TO ‘$TMPO" 
167777 001164 BIC #°CNED sshve Sores FIED BITS 
001124 001164 CMP SGDDAT, *STMPO sCOMPARE THE BITS 
001126 001174 MOV SBDDAT,STHP4 © :COPY °BAD DATA’ 
01 001174 BIC #NED STMPG 3CLEAR THE MASKED BITS 
001174 001124 BIS STMPL,$GDDAT :"OR* WITH GOOD DATA FOR TYPEOUT 
001244 sl com CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
001244 TST CKERR sWAS *NED* SET ? 
BEQ +10 *BR IF NOT 
000010 MOV ACLR,RMCS2(RO) ISSUE MASSBUS INIT TO CLEAR ‘NED’ 
001226 000010 MOVB #PORTB,RMCS2(RO) ° :SELECT 
001226 001234 MOV PORTB,PT sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
000012 TST RMDS (RO) :SEE IF DRIVE (PORT B) PRESEN 
001244 CLR CKERR [CLEAR THE "CHECK ERROR’ INDICATOR 
000010 001126 MOV RMCS2(RO) SBDDAT™ >GET CONTENTS OF 
000010 001122 MOV #RMCS2,$BDADR ;FORM. REGISTER ADDRESS OF ERROR MESSAGE 
001122 ADD RO, $BDADR "ADD RH/RM BASE ADDRESS 
001124 CLR SGDDAT WHAT REGISTER SHOULD BE 
001126 001164 MOV SBDDAT.STMPO MOVE REGISTER CONTENTS TO "STMPO' 
167777 001164 BIC #°CNED.STMPO SAVE SPECIFIED BITS 
001124 001164 cop SGDDAT.$TMPO : COMPAR — THE BIT 
001126 001174 MOV SBDDAT,STMP4 COPY “BAD DATA’ 
01 001174 BIC #NED .STMP4 3 CLEAR THE MASKED BITS 
001174 001124 BIS STMP4.$GDDAT :°OR' WITH GOOD DATA FOR TYPEOUT 
001244 - com CKERR zSET THE REGISTER COMPARE ERROR INDICATOR 
001244 TST CKERR :WAS "NED SET ? 
BEQ ~=—s «#10 [BR IF NOT 
000040 000010 MOV #CLR.RMCS2(RO) ISSUE MASSBUS INIT TO CLEAR NED‘ 
:CONFIRM THAT DRIVE IS AN RM8O AND IS DUAL PORT 
001224 900010 MOVB = PORTA, RMCS2(RO) ;SELECT POR 
1224 001234 MOV PORTA.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001244 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
26 001126 MOV RMDT(RO) ,SBDDAT ”;GET CONTENTS OF RMDT 
2 1122 MOV sRADT SBDADR sFORM REGISTER ADDRESS OF ERROR MESSAGE 
0011 ADD sieeee sADD RH/RM BASE ADDRESS 
024026 001124 MOV #04 4026,$GDDAT WHAT REGISTER SHOULD BE 
1124 001126 CMP SGDDAT,$BDDAT 1S THE REGISTER OK ? 
BEQ . BR IF 
001244 wo com CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


6 ool 6 600010 MOVE PORTB,RMCS2(RO) ;SELECT PORT B 
1226 001234 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


3 
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nN 
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quae 
SS 
wo 
PRX SEER BK Fo 


ood 
eb od ed eh ed hb et mb ad T™~ 


~= 
35 
NO 


~ 
a 


SS Sxsss 


= at Qt 
3 
ggg eeeg 38 


s 
— 
—s 
P 


See 
S3zE 

gee S38 

33 

sss $sss SS 
PRS SSER RE 


ot ad aad ad DADS 
RESNSSNVRSVSE 
NEN 


SOEEEEEERERERER 


SN 


CLR CKERR sCLEAR THE ee ERROR’ INDICATOR 
MOV pa bay SBDDAT ;GET CONTENT 
T SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
H/RM BASE ADDRESS 


MOV Re Rd, SaGADR SGDDAT :WHAT REGISTER SHOULD BE 
CMP SGDDAT,$BDDAT :1S THE HE REGISTER OK ? 


BEG 70s 7BR IF 
COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
70$: NOP 
:VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
MOVB = PORTA, RMCS2(RO) ;SELECT PORT 
MOV PORTA.PT sMOVE PORT ADDRESS TO_LOCATION FOR TYPEOUT 
CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
MOV RMDS(RO), SBDDAT “GET CONTENTS OF RMDS 
MOV ARMDS , SBDAD FORM RE REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, RH/RM BASE ADDRESS 
MOV #PGM, SGDDAT wit Reeis SHOULD BE 
MOV SBDDA AT, STMPO MOVE AST eR CONTENTS TO ‘S$TMPO’ 
BIC “CPGM.S$TMPO : SAVE SPECIFIED BITS 
CMP $ DAT.STMPO ° ;COMPARE THE BITS 
BEQ 7 ‘BR IF OK 
MOV SBDDAT.STMP4 § :COPY "BAD DATA‘ 


BIC #PGM 3CLEAR THE MASKED BITS 
BIS STMP4,SGDDAT :°OR' WITH GOOD DATA FOR TYPEOUT 
oa com CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 
MOV RDS (RQ) . SBDDAT rr CONT ENTS OF RMDS 
MOV #RMDS , SBD. Toit te REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO = “ADD RH E ADDRESS 
MOV Boy soil sWHAT REGISTER SHOULD BE 
MOV :MOVE® REGISTER CONTENTS TO ‘$TMPO* 
BIC aaa SSAVE SPECIFIED BITS 
CMP ScobnT StaPO : COMPARE THE 
BEQ 74$ :BR IF OK 
MOV SBDDAT.STMP4 § : COPY "BAD DATA’ 
BIC #10600, $TMP4 3CLEAR THE MASKED BITS 
BIS STMP4,$GDDAT :°OR* WITH GOOD DATA FOR TYPEOUT 
aes com CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR 3CLEAR THE "CHECK ERROR’ INDICATOR 

MOV RMDS(RO) ,SBDDAT °;GET CONTENTS OF RMDS 

MOV sRADS SBDADR :FORM. REGISTER ADDRESS OF ERROR MESSAGE 
SBDADR RH/RM BASE ADDRESS 


ADD 

MOV SPeM SGDDAT wat PEGI STER SHOULD 

MOV SeppAT.$1 REGISTER CONTENTS TO "STMPO" 
BIC Pons1 :SAve eS Pec IFIED BITS 

cP ScDDAT. T TS 

MOV (en STMP4 BR IF BAD DATA' 


3 
3 


2 
a 


Cae 
. a 
— 
r=) 
> 


SRB R Sea 


— ad 
en o 


EEE T3333 333 3a3 sa ea3 003 


$ | 6FSRES 


S558 
SRASKS 


FPEFEE 
Sao 


~™ 


SISVSARAVNASSEVE 
~™ 


PDI ed ced et ed rd dd td td td ot td I 


th 
as 
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CCESS TEST 
3 1009 1174 BIC #PGM,. STMPG :CLEAR THE MASKED BITS 
33 7 001174 001124 BIS $TMPL.SGDDAT :'OR" WITH GOOD DATA FOR TYPEOUT 
at 001244 pa CON CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
g 12446 "LR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
16037 001126 MOV RMDS(RO),$BDDAT °;GET CONTENTS OF 
12737 0011 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
7 00112 ADD RO, $BDAD : BASE ADDRESS 
oi 737 901124 MOV #MOL'DPR'DRY,SGDDAT ;WHAT REGISTER SHOULD BE 
13737 0011 MOV SBDDAT.$TMPO. MOVE REGISTER CONTENTS TO ‘S$TMPO* 
042737 167177 001164 BIC #°C10600,$TMPO :SAVE SPECIFIED BITS 
0 3737 001124 001164 CMP SGDDAT,$TMPO : COMPARE | THE BITS 
013737 001126 001174 MOV SBDPAT.STMP4 § : COPY ‘BAD DATA’ 
042737 1 001174 BIC #10600,$TMP4 § :CLEAR THE MASKED BITS 
053 7 001174 001124 BIS STMP4 ,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
000240 78$: NOP 
:VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 
113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
016037 30 001124 MOV RO), T :STORE THE PORT A SERIAL NUMBER 
113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 
016037 000030 001126 MOV RMSN(RO) ,SBDDAT :STORE THE PORT B SERIAL NUMBER 
023737 001124 001126 cMP SGDDAT,SBDDAT ARE THEY JHE SAME ? 
001406 BEQ 1$ [BR IF THEY ARE 
104005 - EMT 5 
032777 100000 174522 BIT #SW15,@SWR :HALT ON ERROR ? 
001001 BNE 1$ [BR IF SET - PROGRAM HAS ALREADY HALTED 
000000 HALT SHALT, POSSIBLE CABLE CONNECTION PROBLEM 
000004 1$: SCOPE SLOOP’? 
{FERRARA RERAARRAREAEAREERRERAEAAEREARARERRERERRRAEREERARRERAERARERE 
:*TEST 2 SET *VV" FOR PORT A 
;*SET VOLUME VALID 
i A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 
t® B. ISSUE A READIN PRESET COMMAND THROUGH PORT A. VERIFY 
i THAT THE ‘VV" BIT IS SET FOR PORT A. 
t® (C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 
8 THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
:* BIT IS SET. 
gaat a aacata os tmcenmcen on anamammaan a aauacmaaabarmauamalt: 
ST: 
005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
001406 BEQ 2$ “BR IF NOT 


3BR IF NO 
§ BPL 1$ 3BR_IF JUST ENTERED TEST 
0001 002610 JMP EXEC sRETURN & GET NEXT TEST NUMBER 


H 3 
"tated RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-7 SEQ 0033 
T SET *VV° FOR PORT A 


904440 1 ? 177777 001266 1S: MOV #=1,KYBCTL :SET SINGLE TEST INDICATOR 
446 0107 1108 2$: MOV aTESTe, PADR :SETUP SCOPE LOOP ADDRESS 


0044 : 
94454 010737 00446 111 a MOV #TEST2,.$LPERR SETUP ERROR LOOP ADDRESS 
004462 112737 02 001102 “move #2,$TSTNM :MOVE #2 TEST NUMBER 
004470 0127 11 MOV #STACK, SP *SETUP THE STACK POINTER 
004474 0127 001176 MOV #1,$TIMES +;D0 1 ITERATION 
00450 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
004510 013737 001224 001234 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:SET VOLUME VALUE FOR PORT 
004516 012760 000011 000000 MOV #11,RMCS1(RO)  ;ISSUE A DRIVE CLEAR 
004524 012760 000021 MOV #21-RMCS1(RO) ISSUE A READIN PRESET 
004532 012760 010000 3000 wat MOV #FMT16,RMOF (RO) “SET FMT16 
SVERIFY THAT THE DRIVE STATUS IS CORRECT 
004540 005037 001244 CLR CKERR SCLEAR THE ‘CHECK ERROR’ INDICATOR 
004544 016037 000012 001126 MOV RMDS(RO),$BDDAT °;GET CONTENTS OF RMD 
004552 012737 900012 001122 MOV #RMDS , $BD. sFORM REGISTER ADDRESS OF ERROR MESSAGE 
004560 37 00112 ADD RO, SBDADR zADD RH/RM BASE ADDR 
004564 012737 011700 001124 MOV #MOL'PGM'DPR!DRY!VV,$GDDAT ;WHAT REGISTER SHOULD BE 
004572 013737 001126 001164 MOV SBDDA SMOVE REGISTER CONTENTS TO "S$TMPO° 
004600 042737 106077 001164 BIC #°C71700,$TMPO SAVE SPECIFIED BITS 
004606 023737 001124 001164 CMP SGDDAT,$TMPO § : COMPARE THE BITS 
004614 001414 BEQ ; 
004616 013737 001126 001174 MOV SBDDAT.STMP4 § : COPY ‘BAD DATA‘ 
4 042737 071700 001174 BIC #71700,$TMP4 | :CLEAR THE MASKED BITS 
00463 053 730 001174 001124 BIS STMP4,$GDDAT | :°OR® WITH GOOD DATA FOR TYPEOUT 
004642 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
004646 000240 64$: NOP 
:RELEASE THE DRIVE FROM PORT A 
004650 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
004656 013737 001224 001234 MOV TA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012760 000013 000000 MOV #13,RMCS1(RO)’ ; ISSUE RELEASE THROUGH PORT A 
:VERIF? THAT THE DRIVE IS IN NEUTRAL 
004672 005037 001250 CLR RELERR :CLEAR THE "RELEASE ERROR ° INDICATOR 
004676 003035 aa 001122 MOV ARDS, SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
004704 7 0011 ADD RO, SBDADR SADD THE 1/0 BASE ADDRESS 
004710 O12 7 011 001124 MOV #MOL'PGM'DPR!DRY.SGDDAT ;COMPARISON CONSTANT 
004716 113760 001224 900010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 
004724 01 00001 1170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
004 13737 00117 1164 MOV STMP2 ,STAPO [COPY IT INTO "STMPO' 
00474 7 1001 1164 BIC WATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
004746 1137 122 19 MOVB = PORTB RACS2 (RQ) ‘SELECT PORT B. 
004754 01 1 117 MOV RMDS(RO),S$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
004762 13737 00117 1166 MOV STMP3,STAP1 ‘COPY IT INTO ‘STMP 
00477 737 1001 001166 BIC BATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
004776 023737 001164 001166 CMP STMPO,STMP1 21S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
005004 001006 BNE 66S :BR IF NOT 


;s 
CZRNIAO RM8O DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-8 SEQ 0034 
T SET "VV" FOR PORT A 
905006 5737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
00501 1037 BNE 8$ ‘BR IF NOT 
005014 1040 EMT 
00501 137 905202 JMP 0$ :BYPASS THE REST OF THE CHECK KS 
0050 13737 001170 001126 66$: MOV STMP2. SBDDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
0050. 13737 001286 12 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS OpRIVE NOT IN NEUTRAL 
005036 11 760 001226 10 MOVB = PORTB,RMCS2(RO) :SELECT PORT B. 
005044 005737 001164 TST $I TMPO. *SEE IF STATUS EQ 0 FROM PORT A. 
905050 b01414 BEQ 7$ ‘BR IF ZERO 
00505 137 7 001224 001234 MOV PORTA .PTNBR | TSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005060 013737 001172 001126 MOV $TMP3,$BDD : "BAD DATA’ FOR ERROR TYPE OUT 
005066 113760 001224 000010 MOVB _—s- PORTA, aero (ROD *SELECT 
005074 0057 1166 TST STMP1 :SEE IF STATUS’ EQ ZERO FROM PORT B. 
005100 001 BNE 68$ [BR IF NOT 
005102 012737 177777 001250 67$: MOV #~1,RELERR SSET "RELEASE ERROR’ INDICATOR 
005110 104036 EMT 36 
005112 013737 001170 001126 68$: MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
005120 013737 001224 001234 MOV :¢ T NUMBER 
005126 042737 100100 001170 BIC #ATA:WV SMP? SDON'T CHECK ATTN BIT OR WV BIT 
005134 023737 001124 001170 CMP DDAT,$TMP2 ZALL L BITS OK ? 
005142 001401 BEQ rr BR IF OK FROM PORT A. 
005144 104037 EMT ? 
005146 013737 001172 001126 69S: MOV STMP3,SBDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
005154 013737 001226 001234 MOV R :CHANGE PORT NUMB 
005162 042737 100100 001172 BIC WATA!VV,$TMP3 :DON'T CHECK ATIN BIT OR VV BIT 
005170 023737 001124 001172 CMP SGDDAT,$TMP3.  : SEE _IF READ OK FROM PORT B. 
005176 001401 BEQ 70$ ‘BR IF OK 
104037 EMT 
005202 000240 70$: NOP 
wn SCOPE :LOOP ? 
FRRRARRARRERAREERERREEREREEEEREERAEREREEEEEREREERREEREERRERRERERRE 
j+TEST 3 SET ‘vv FOR PORT B 
SASET VOLUME VALID 
is A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 
+* B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 
i THAT THE "VV° BIT IS SET FOR PORT B. 
t® (C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY T 
i THE DRI ve R RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
:* 
RARER ARARRERERAEREEERERERERARAAEAAERERRAKEREREERRREREERERERE 
005206 ‘$13: 
005206 005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
005212 001406 BEQ 2$ ‘BR IF NOT 
005214 10000 BPL 1$ BR IF JUST E ENTERED TEST 
00521 13 902610 JMP EXEC SRETURN & GET NEXT TEST NUMBER 
0052 12737 177777 001266 1$: MOV 4-1, KYBCTL *SET SINGLE TEST INDICATOR 
005. 12737 005244 001106 2$: MOV aTESt SSLPADR :SETUP SCOPE LOOP ADDRESS 
Oo3oes 012737 005244 001110 alia MOV ATESTS.S$LPERR SETUP ERROR LOOP ADDRESS 
005244 112737 3 001102 MOVB «#3, STSTNM sMOVE #3 TEST NUMBER 
005252 130 oot ta MOV #STACK,SP SSETUP THE STACK POINTER 
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ceed ee at 


MOVB = PORTB, RMCS2(RO) 
sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


3SET VOLUME VALUE FOR PORT 
#11,RMCS1(RO) © 


CKERR 
RMDS (RO) , SBDDAT 
#RMDS , SBD ; 


sRELEASE THE DRIVE FROM PORT B 
MOVE PORTB ,RMCS2(RO) 
Vv TB, R_  ;MOV 
#13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
sVERIFY THAT THE DRIVE IS IN NEUTRAL 





SEQ 0035 


3300 1 ITERATION 
sSELECT PORT B 


s ISSUE A DRIVE CLEAR 
s ISSUE _A_READIN PRESET 
sSET FMT16 


VERIFY THAT THE DRIVE STATUS IS CORRECT 


sCLEAR THE “CHECK ERROR’ INDICATOR 
;GET CONTENTS 


OF RMD 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR ¢ADD RH/RM BASE ADDR 
#MOL | PGM:DPRIDRY! VV. SGDDAT . EGISTER SHOULD BE 


WHAT R 

:MOVE REGISTER CONTENTS TO ‘STMPO* 
SSAVE SPECIFIED BITS 

:COMPARE THE BITS 

SCOPY "BAD DATA’ 

‘CLEAR THE MASKED BITS 

**OR* WITH GOOD DATA FOR TYPEOUT 

:SET THE REGISTER COMPARE ERROR INDICATOR 


sSELECT PORT B 
PORT ADDRESS TO LOCATION FOR TYPEOUT 


sCLEAR_THE “RELEASE ERROR * INDICATOR 
3FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE 1/0 BASE ADDRESS 


'DRY.SGDDAT ; COMPARISON CONSTANT 
, $2(RO) SSELECT POR 


GET THE DRIVE | STATUS REGISTER FROM PORT A. 


CLEAR PORT DEPENDENT BITS FROM THE COPY 

*GET THE DRIVE STATUS REGISTER FROM PORT B. 

*COPY IT INTO *STMP1° 

[CLEAR PORT DEPENDENT BITS FROM THE COPY 

iS THE, STATUS REGISTER THE SAME FROM BOTH PORTS ? 
*REGISTERS ARE THE SAME: ARE THEY ZERO ? 

[BR IF NOT 


HE CHECKS 
ATA FOR 
HOWS D 


ERROR MESSAGE 
RIVE NOT IN NEUTRAL 
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001224 


001266 


ane 
sist 


000004 


001256 


000010 


67$: 
68$: 


69$: 


70$: 


PORTB,RMCS2(RO) 
SoRPO 

sr 

PORTA,PTNBR 

$TMP3,SBDDAT 

PORTA,RMCS2(RO) 

STMP1 

68$ 

STMP2. SBDDAT 

HATA! VV, STMP2 

SGDDAT ,$TMP2 

37 

STMP3, -$BDDAT 


wATA WV $TMP3 
DDAT , $TMP3 
+6e 


SEQ 0036 


sSELECT PORT B. 

SEE Ir STATUS EQ 0 FROM PORT A. 

sSEIZING PORT IF TEST vos DRIVE NOT IN NEUTRAL 
3"BAD DATA’ FOR ERROR TYPE OUT 

;SELECT PORT A. 

:SEE IF St STATUS EQ ZERO FROM PORT B. 


zSET * RELEASE ERROR’ INDICATOR 

3LOOK FOR BIT FAILURES WHEN RMDS READ 
3CHANGE PORT NUMB 

3DON'T CHECK ATTN BIT OR VV BIT 

sALL BITS ? 

3BR IF OK FROM PORT A. 

CHANG RMDS FOR BIT FAILURES - FROM PORT B. 
3DON'T CHECK ATTN BIT OR VV BIT 

7SEE_IF READ OK FROM PORT B. 

BR IF OK 


3LOOP ? 


FRRARAAARERAERERERERRREEEEEREREREARERERAEEREERERERERERREREREEERE 


ZATEST 4 


A. 


C. 


. 
eae 2222 RRS 


amt eo Se Ge Se Se tee Seen 


P Mee 
= 


MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 
j MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 


WRITE 0°S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 


WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


A ld THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 


KYBCTL 

2s 

1$ 

EXE im 

aTestee CI BADR 
ATEST4.SLPERR 
#4, $TSTNM 
#STACK, SP 
#1,STIMES 


TIMEA 


2 RRAEAEREEEREEEREREEEEREREREEERAAAAERRARERAERAAREREEEREREREREEERE 
4: 


:PERFORMING ONLY SINGLE TESTS ? 


:BR IF ep A: re TEST 

NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
7SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 


sMOVE #4 TEST NUMBER 
SETUP THE stack POINTER 
7:00 1 ITERATION 


sCLEAR THE TIMEOUT VALUE STORAGE LOCATION 
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MEASURE THE TIMEOUT ONE=SHOT THROUGH PORT 


006052 005037 001260 CLR TIMEAP ;CLEAR THE + 25% TOLERANCE LOCATION 
sSTART THE TIMER 
006056 005037 001252 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
006062 012737 004335 001254 MOV #2000.,WATCH § :SET WATCH TO 2000. 
;SEIZE THE DRIVE THROUGH PORT A 

006070 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
006076 013737 001224 001236 MOV PORTA.SEIZPT ;STORE SEI ZING Port’ S ADDRESS 
006104 005060 000012 CLR RMDS (RO) :WRITE 
006110 113760 001226 000010 MOVB _—«— PORTB, RACS2 (RO) *SELECT PORT B 
006116 013737 001226 001234 MOV PORTB.PTNBR move P PORT ADDRESS TO LOCATION FOR TYPEOUT 
006124 013737 001206 001240 MOV B T ‘OPPOSIT ADDRES 
006132 016037 000012 001126 MOV RADS (RO) SBDDAT iSEE IF DRIVE RELIED BY PORT A 
006140 010037 001122 MOV R :RH/RM BASE AD 
006144 062737 12 001122 ADD S,SBDADR GENERATE BAD REGISTER ADDRESS 
006152 005037 001124 CLR srs *REGISTER SHOULD BE ZERO 
006156 023737 001124 001126 CMP SGDDAT,SBDDAT 1S THE REGISTER ZERO 
006164 001403 BEQ 64$ ‘BR IF IT IS 
006166 104030 EMT 30 
006170 000137 006704 Gi JMP 4s ;BYPASS REST OF THE SUBTEST 
006174 113760 001224 000010 MOVB _— PORTA, RMCS2(RO) SELECT PORT 
006202 013737 001224 001234 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
006210 016037 000012 001126 MOV RMDS (RO) + $B DAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
006216 012737 011700 001124 MOV #MOL'PGM'DPR!DRY!VV,$GDDAT EXPECTED STATUS 
006224 013737 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DAT nick: 
006232 005137 001166 COM $TMP1 3 COMPLEMENT THE EXPECTED STATUS 
006236 013737 001126 001164 MOV SBDDAT STMPO ©; SAVE _THE ACTUAL STA 
006244 043737 001166 001164 BIC 1,$TMPO LEAR UNWANTED B 
006252 023737 001124 001164 CMP SDA. aa SARE THE EXPECTED STATUS BITS SET ? 
006260 001401 BEQ 65$ [BR IF THEY ARE 
006262 104031 EMT 31 

64 000240 653: NOP 

:WAIT FOR PORT A TO TIMEOUT 

006266 113760 001226 000010 MOVB _—s— PORT, B-RACS2(RO) i “SELECT PORT B 
006274 013737 001226 001234 MOV PORTB PORT ADDRESS TO LOCATION FOR TYPEOUT 
006302 005760 000012 1$: TST PAR S tRO) vE FO FOR THE DRIVE TO TIMEOUT 
006306 901006 BNE 2$ BR WHEN TIMEOUT OCCURS 
006310 005 001254 TST WATCH *CHECK WATCH 
006314 001372 BNE 1$ 7BR IF NOT ZERO 
006316 104006 EMT 
006320 137 00635 JMP $ BYPASS THE REST OF THE TEST 
006324 013737 00128 001256 2S: MOV TIME, TIMEA “SAVE THE ELAPSED TIME FOR PORT A 
006332 004537 01352 JSR R5, TOLER : CALCULATE THE TOLERANCE 
006336 001256 .WORD TIMEA HnEOU VALUE FOR PORT A 
006340 012637 001260 Vv. (SP)+,TIMEAP 425% YOLERANEE 

ey :VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS 
006344 023727 001256 000764 CMP TIMEA #500. :1S TIMEOUT VALUE AT LEAST 500 MS ? 
006352 103001 BHIS <BR IF IT IS 
006354 104007 EMT 


Ld 
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MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT 






;VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 












006356 33: 
VERIFY THAT THE DRIVE IS IN NEUTRAL 
006356 005037 001250 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
362 012737 00012 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
006 060037 00112 ADD RO, $BDADR ZADD THE 1/0 BASE ADDRESS 
374 127 7 011700 901124 MOV #MOL'PGM'DPR!DRY!VV,$GDDAT ;COMPARISON CONSTANT 
02 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 
006410 9160 7 900012 001170 MOV $(RO) [GET THE DRIVE STATUS REGISTER FROM PORT A. 
006416 013737 001170 001164 V 2,$T *COPY IT INTO 'STMPO' 
006424 0427 7 100100 001164 BIC WATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
006432 113760 00122 900010 TB RACS2 (RO) ?SELECT PORT B. 
00644 016037 60001 90117 MOV RMDS(RO),.$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT 6. 
006446 013737 001172 001166 MOV STMP3,$TMP1 [COPY IT INTO ‘S$TMP1° 
006454 042737 100100 001166 BIC HATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
006462 023737 001164 001166 CMP STMPO,STMP1 ‘IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
006470 001006 BNE 66$ ‘BR IF NO 
006472 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
006476 001045 68s 'BR IF NOT 
006500 104034 EMT 4 
006502 000137 00670 JMP 70$ sBYPASS THE REST OF THE CHECKS 
006506 013737 001170 001126 66$: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
006514 013737 001226 001234 MOV *PTNBR TSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
006522 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
006530 005737 0011 TST $TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
006534 001414 BEQ 67$ ‘BR IF ZER 
006536 013737 001224 001234 MOV PORTA,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
006544 013737 001172 001126 MOV STMP3,$BDDAT ;"BAD DATA’ FOR ERROR TYPE OUT 
00655 115760 001224 000010 MOVB PORTA. RMCS2(RO) :SELECT PORT A. 
006560 005737 001166 TST STMP1 ?SEE IF STATUS EQ ZERO FROM PORT B. 
006564 901012 BNE ‘BR IF NOT 
006566 O1275 177777, 001250 67$: MOV #~1,RELERR TSET "RELEASE ERROR’ INDICATOR 
906574 012760 000011 000000 MOV #11,RMCS1(RO)  :CLEAR THE DRIV 
006602 012760 000013 000000 MOV #15,RACS1 (RO) SRELEASE THE DRIVE 
006612 013737 001170 001126 68$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
006620 13737 001224 0012 MOV PORTA, PTNBR + CHANGE 
006626 0427 7 100000 001170 BIC #ATA, STMP *DON'T CHECK THE ATTN BIT 
006634 023737 001124 001170 CMP SGDDAT,$TMP2 ALL BI ? 
006642 001401 BEQ 9 *BR IF OK FROM PORT A. 
6 O13737 001172 001126 69$: MOV STMP3,$BDDAT § ;CHECK RMDS FOR BIT FAILURES = FROM PORT 8. 
006654 013737 001226 001234 MOV PORTB.PTNBR + CHANGE 
042737 1000 00117 BIC #ATA, STMP3 [DON'T CHECK THE ATTN BIT 
0066 3737 001124 00117 CMP SGDDAT.$TMP3 SEE IF READ OK FROM PORT B. 
006674 001401 BEQ 70$ ‘BR IF OK 
Ser otal ros: 
704 $0004 4$: SCOPE :LOOP ? 


275 


$f RRRRKARERRR: RERRARERAAAEAERERERAAEEEAREAEERRERAEAEEERARERAERAEEREEEEREE 


:*TEST 5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 
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MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 


; #MEASURE THE TIMEOUT ONE=SHOT VALUE THROUGH PORT B 


te A. WRITE 0°S INTO RMDS THROUGH PurT 8 AND VERIFY THAT THE 
i DRIVE HAS BEEN SEIZED. 
:* B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
is ONE=SHOT AND SAVE THE VALUE FOR LATER USE. 
:* (. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
i TO NEUTRAL 
rH  EREREREREREEREEARERERERERRERERERERERERERAERERERARERARERERERERER 
006706 | ‘$15: 
006706 005737 001266 TST KYBCTL sPERFORMING ONLY SINGLE TESTS ? 
006712 001406 BEQ 2$ 
006714 100002 BPL 1$ BR IF JUST ENTERED TEST 
006716 00013 00261 _ IMP EXEC TRETURN & GET NEXT TEST NUMBER 
0067 012737 177777 001266 1$: MOV #~1 , KYBCTL [SET SINGLE TEST INDICATOR 
006 012737 006744 001106 2S: MOV aTESTS. SLPADR SETUP SCOPE LOOP ADDRESS 
006736 012737 006744 001110 aaa MCV ATESTS.S$LPERR SETUP ERROR LOOP ADDRESS 
006744 112737 000005 001102 "move #5,$TSTNM :MOVE #5 TEST NUMBER 
006752 012706 001100 MOV #STACK, SP ‘SETUP THE STACK POINTER 
006756 012737 000001 001176 MOV #1,STIMES *:D0 1 ITERATION 
006764 005037 001262 CLR TIMEB 3CLEAR THE TIMEOUT VALUE STORAGE LOCATION 
006770 005037 001264 CLR TIMEBP ;CLEAR THE + 25% TOLERANCE LOCATION 
;START THE TIMER 
006774 005037 001252 CLR LIME CLEAR THE ELAPSED TIME COUNTER 
007000 012737 003720 001254 MOV #2000.,WATCH §§ :SET WATCH TO 2000. MS 
:SEIZE THE DRIVE THROUGH PORT B 
000010 MOVB _—«—~PORTB, RACS2(RO) sSELECT PORT B 
001236 Cs MOV PORTB :STORE SEIZING PORT’S ADDRESS 
CLR RMDS( WRI RADS 
900 10 MOVB _—s PORTA, RACS2 (RO) “SELECT PORT A 
1234 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
1240 MOV PORTA, : SITE* PORT ADDR 
1126 MOV RMDS (RO) to is SEE IF DRIVE SEIZED BY PORT B 
MOV RO, SBDADR :RH/RM BASE ADDRESS 
001122 ADD #RMDS SGENERATE BAD REGISTER ADDRESS 
CLR seppAt SREGISTER SHOULD BE ZERO 
001126 CMP GDDAT,SBDDAT 31S THE REGISTER ZERO 
BEQ 48 ? :BR IF IT IS 
ae JMP 4$ | :BYPASS REST OF THE SUBTEST 
10s“ MOVB-=—s«PORTB.RMCS2(RO)_  ;SELECT PORT 8 
1 MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
1 6 MOV RMDS (RO) ,SBDDAT SE olf SEIZING PORT SEES CORRECT STATUS 
11 MOV #MOL !PGM'DPR!DRY! DAT EXPECTED STATUS 
sane COM SSDDAT.STAPI USE Gh Bara As EXPECT ; CTED STATUS 
001164 MOV SEDDAT, STHPO SAVE THE ACTUAL STATUS - 
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CZRNIAO RM8O DUAL PORT PT2 MACRO V04.00 15-JAN-82 0 
T MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 

71 7 1164 BIC STMP1,STMPO SCLEAR UNWANTED BITS 
Bort76 3337 oot 1164 CMP SeppAr, STMPO = : ARE THE EXPECTED STATUS BITS SET ? 

907176 1401 BEQ ‘BR IF THEY ARE 
forsee 000249 65$: NOP 
sWAIT FOR PORT 8B TO TIMEOUT 
113760 324 000010 MOVB PORTA, RMCS2(RO) “SELECT POR 
007212 0137 001234 MOV PORTA, PTNBR move PORT ADBRESS TO LOCATION FOR TYPEOUT 
007220 005760 1$: TST $(RO) WAIT FOR THE DRIVE TO TIMEOUT 
007224 00006 BNE tBR WHEN TIMEOUT OCCURS 
007226 005737 001254 TST WATCH + CHECK 
007 001372 BNE 1$ BR IF Not ZERO 
007234 104 EMT 
007256 000137 007274 JMP $ sBYPASS ‘THE REST OF THE TEST 
007242 013737 00125 001262 2S: MOV TIME TIMED [SAVE THE ELAPSED TIME FOR PORT B 
007250 004537 01352 JSR R5, TOLER : CALCULATE THE TOLERANCE 
007254 001262 .WORD TIMEB s TIME OU VALUE FOR PORT 
007256 012637 001264 MOV (SP)+,TIMEBP  :425% YOLERANCE 
| ;VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS 
007262 023727 001262 000764 CMP TIMEB, #500. i1S TIMEQUT VALUE AT LEAST 500 MS ? 
007270 103001 BHIS 3$ <BR IF IT IS 
007272 104007 EMT . 
SVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT 8 TIMED OUT 
007274 3S: 
SVERIFY THAT THE DRIVE 1S IN NEUTRAL 
007274 005037 001250 CLR RELERR :CLEAR THE ApRELEASE ERROR * INDICATOR 
012737 12 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 

7 060037 001122 ADD RO, SBDADR *ADD THE 1/0 BASE ADDRESS 
00731 012737 911700 001124 MOV #MOL'PGM'DPR!DRY!VV,SGDDAT ;COMPARISON CONSTANT 

7320 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 

007326 016037 900012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE "STA STATUS REGISTER FROM PORT A. 
007334 013737 001170 001164 MOV STMP2,STMPO *COPY IT 
00734 737. 100100 001164 BIC WATA!VV,$TMPO CLEAR PORT TREPENDENT BITS FROM THE COPY 

50 113760 00122 19 PORTB,RACS2(RO) :SELECT PORT B. 
007356 016037 12 00117 MOV RMDS(RO) ,STMPS :GET THE DRIVE STATUS REGISTER FROM PORT B. 
99 13737 001172 001166 MOV STMP3,STAP1 [COPY IT INTO ‘S$TMP1' 

73 30 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
007% F 7 001164 001166 CAP STMPO, STMP1 iS THE ygyAtus REGISTER THE SAME FROM BOTH PORTS ? 
00741 1908 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
907416 1045 BNE 8$ ‘BR IF NOT 
0074 137 76, 0$ BYPASS THE REST OF THE GHeck S 
0074 4% 013737 001170 001126 66$: MOV STMP2,S$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

74 13737 001226 0012 MOV PORTB,PTNBR *SEIZING PORT IF TEST aNOus DRIVE NOT IN NEUTRAL 

7440 1137 1226 $00076 : MOVB PORTE -RACS2 (RO) [SELECT PORT B. 

744 5737 001164 TST $T *SEE IF STATUS EQ 0 FROM PORT A. ‘ 
poneee outs 1224 001234 SOV oraTA PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
007462 Otay 7 1495 1126 « MOV STMP3.SBDDAT :"BAD DATA’ FOR ERROR TYPE OUT 
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Oo766s 001110 
6000 001102 
000001 001176 


001224 000010 


MOVB = PORTA, RMCS2(RO) i SELECT T PORT A. 
TST STMP1 7SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 68$ :BR IF NOT 

67$: MOV #~1,RELERR SET *RELEASE ERROR’ INDICATOR 
MOV #11.RMCS1(RO) CLEAR THE 
OV #15, *RMCS1(RO) RELEASE THE DRIVE 

68$: MOV STMP2, SBDDAT sLOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA, PTNBR [CHANGE PORT NUMB 
BIC DATA STMPE ‘DON'T CHECK THE ATTN BIT 
CMP SAT AT TAP TALL BITS 
BEG 3s [BR IF OK FROM PORT A. 

69$: MOV STMP3,SBDDAT :CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
MOV PORTB R :CHANGE POR 
BIC WATA STR [DON'T CHECK THE | ATTN BIT 
CMP SGDDAT, STHP3 [SEE IF READ OK FROM PORT B. 
BEQ 70$ :BR IF OK 
EMT 

70$: NOP 

4$:  . SCOPE :LOOP ? 

eee taaat Enaet? ten, te ne 
*TEST 6 TEST "PORT SELECT’ SWITCH, DRIVE CYCLED UP 


i rest THE OPERATION OF THE ‘PORT SELECT’ SWITCH (DRIVE CYCLED UP). 


3* 
t® A, SWITCH TO PORT ‘A’ POSITION. VERIFY THAT THE DRIVE IS IN 
7* NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
i PORTS, ARE CORRECT. 
‘® B. SWITCH TO PORT 'B" POSITION. VERIFY THAT THE DRIVE IS IN 
ba NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
i* PORTS, ARE CORRECT. 
t® (C. RETURN THE "PORT SELECT’ SWITCH TO THE 'A/B‘ POSITION. VERIFY 
i THE DRIVE STATE. 
| mmm ia aida apamumaas ania eae acme i 
$ 

TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 

BEQ $ ‘BR IF NOT 

BPL $ <BR IF JUST ENTERED TEST 

JMP EXEC [RETURN & GET NEXT TEST NUMBER 
1$: MOV KYBCTL *SET SINGLE TEST INDICATOR 
2s: MOV - STEST Or SLPADR ‘SETUP SCOPE LOOP ADDRESS 
ali MOV ATEST6,$LPERR SETUP ERROR LOOP ADDRESS 

* MOVB #6, $TSTNM :MOVE #6 TEST NUMBER 
MOV #STACK, SP ‘SETUP THE STACK POINTER 
MOV #1,STIMES +300 1 ITERATION 


sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 


SEQ 0041 





: dD 4 
CZRNIAO RM8O DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-16 SEQ 0042 
16 TEST ‘PORT SELECT’ SWITCH, DRIVE CYCLED UP 


7710 005060 1 CLR RMDS(RO) :SEIZE THE DRIVE 
7714 o1 1 MOV #11 RACSI (RO) TISSUE DRIVE CLEAR 
77 127 1 0 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
007 1137 2 1 MOVB  PORTB,RMCS2(RO) :SELEC T 
5 1 CLR RMDS (RO) *SEIZE THE DRIVE THROUGH PORT ‘B’ 
00774 12760 11 000000 #11,RMCS1(RO) ISSUE DRIVE CLEAR 
007750 01 760 13 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
298 907756 104401 020154 TYPE  ,SWECHA : H TO ‘A° 
007762 104401 020246 TYPE  ,CONTUE SPRESS "CONTINUE 
007766 000000 HALT 
302 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
007770 5037 901250 CLR RELERR 3CLEAR THE "RELEASE ERROR ' INDICATOR 
007774 012737 1g 001122 MOV #REDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
010002 96005 001128 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
010006 012737 011700 001124 MOV #MOL'PGM!DPR!DRY!VV,S$GDDAT ;COMPARISON CONSTANT 
010014 113760 001224 10 MOVB PORTA, RMCS2(RO) ;SELECT PORT A. 
010022 916037 900012 001170 MOV RMDS(RO), *GET THE DRIVE STATUS REGISTER FROM PORT A. 
010030 013737 001170 001164 MOV TMP2,$T [COPY IT INTO "$TMPO° 
010036 042737 100100 001164 BIC HATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
010044 113760 001226 000010 MOVB = PORTB,R cs2(RQ) [SELECT PORT B. 
010052 016037 000012 001172 MOV $(RO), *GET THE DRIVE STATUS REGISTER FROM PORT B. 
010060 013737 001172 001166 MOV STMP3,$T :COPY IT INTO ‘S$TMP1' 
01 042737 100100 001166 BIC HATA'VV,$TMP1 =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
010074 023737 001164 001166 CMP STMPO,STMP1 SIS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
010102 901006 BNE 64$ : 
010104 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
010110 001045 BNE [BR IF NOT | 
010112 104034 EMT 4 
010114 137 010314 JMP 68$ sBYPASS THE REST OF THE CHECKS 
010120 013737 001170 001126 64$: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
010126 013737 001226 0012 MOV PORTB,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010134 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
010142 005737 001164 TST STMPO [SEE IF STATUS EQ 0 FROM PORT A. 
010146 001414 BEQ ‘BR IF ZER 
010150 013737 001224 001234 MOV PORTA, PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010156 013737 001172 001126 - MOV STMP3.S$BDDAT _: "BAD DATA’ FOR ERROR TYPE OU7 
010164 113760 001224 000010 MOVB PORTA. RMCS2(RO) :SELECT PORT A. 
g10172 00573 001166 TST STMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
O10200 1 Org 177777 001250 65$: MOV #~1,RELERR *SET "RELEASE ERROR’ INDICATOR 
010, 12760 11 000000 MOV #11,RMCS1(RO) :CLEAR THE DRIVE 
910 14 01276 13 000000 MOV #13,RMCS1(RO) :RELEASE THE DRIVE 
010224 01 9 7 901170 1126 66$: MOV STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
910 13737 001224 0012 MOV PORTA, PTNBR : T NUMBER 
10240 042737 10 11 0 BIC HATA, $TMP2 DON'T CHECK THE ATTN BIT 
010246 023737 001124 00117 CMP SqDDAT ,STAP2 TALL BITS OK ? 
Giaese : 1401 BEQ cs [BR IF OK FROM PORT A. 
010, 26 137 7 001172 001126 67$: MOV STMP3,S$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
010266 13737 12 MOV PORTB,PTNBR *CHANGE PORT NUMBER 
010 737 1 1178 BIC MATA, $TMP *DON'T CHECK THE ATTN BIT 
010 023737 001124 00117 CMP SGDDAT,S$TMP3 SEE IF READ OK FROM PORT B. 
01031 1401 BEQ $ *BR IF OK 
010312 104037 EMT 


4 
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16 TEST "PORT SELECT’ SWITCH, DRIVE CYCLED UP 


10314 240 68$: NOP 
3 010 1 104401 020211 TYPE  ,SWTCHB sSWITCH TO 'B' 
10 104401 46 TYPE § ,CONTUE SPRESS "CONTINUE 
5 010326 000000 HALT 
7 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
910330 9050 7 001250 CLR RELERR sCLEAR THE "RELEASE ERROR ' INDICATOR 
010334 012737 001122 MOV #RADS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
010342 001126 ADD RO, SBDADR SADD THE 1/0 BASE ADDRESS 
010 o1¢ 7 011700 001124 MOV AMOL'PGM'DPR!DRY!VV,$GDDAT ;COMPARISON CONSTANT 
010354 1137 1224 000010 MOVB =~ PORTA RACS2(RO) :SELECT PORT A. 
010 9160 12 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
010370 013737 001170 001164 MOV STMP2,STMPO :COPY IT INTO "$TMPO' 
010376 0427 7 100100 001164 BIC WATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
010404 113760 00122 19 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
010412 016037 1 117 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
010420 013737 001172 001166 MOV STMP3,STAP1 [COPY IT INTO *$TMP1' 
010426 0427 7 100100 001166 BIC HATA!VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
010434 023737 001164 001166 CMP STMPO,STMP1 71S. THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
010442 001006 BNE 69S :BR IF NO 
010444 005737 001164 TST $TMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
010450 001045 BNE 71$ [BR IF NOT 
010452 104034 EMT 
010454 000137 010654 MP 73$ sBYPASS THE REST OF THE CHECKS 
010460 013737 001170 001126 69S: MOV STMP2,SBDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
010466 013737 001226 0012 MOV TB. PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010474 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
010502 005737 001164 TST $TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
010506 001414 BEQ 7BR IF ZER 
910510 013737 001224 001234 MOV PORTA,PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
10516 013737 001172 001126 MOV STMP3.SBDDAT : "BAD DATA’ FOR ERROR TYPE OUT 
010524 113760 001224 000010 MOVB PORTA. RMCS2(RO) :SELECT PORT A. 
010532 005737 001166 TST STMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
010536 00101 BNE 71$ ‘BR IF NOT 
010540 012737 177777 001250 70$: MOV #-1,RELERR [SET "RELEASE ERROR’ INDICATOR 
010546 012760 000011 000000 MOV #11.RMCS1(RO) CLEAR THE DRIVE 
910554 le 760 000013 000000 mov #15,RACS1 (RO) SRELEASE THE DRIVE 
010964 13737 901170 001126 71$: MOV STMP2,$BDDAT _;LOOK FOR BIT FAILURES WHEN RMDS READ 
0105 13737 001224 0012 MOV PORTA, PTNBR + CHANGE 
01 042737 00000 001170 BIC HATA, $TMP2 [DON'T CHECK THE ATTN BIT 
010606 023737 001124 001170 CMP SGDDAT,S$TMP2 ALL BITS 
010614 001401 BEQ 72$ *BR IF OK FROM PORT A. 
010616 104037 EMT 3 
01 0137 7 001172 001126 72$: MOV STMP3,SBDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
010626 13737 1226 001234 MOV PORTB,PTNBR : E 
0106 O42 7 1 901172 BIC #ATA, $TMP “DON'T CHECK THE ATTN BIT 
010642 23737 001124 00117 CMP SGDDAT.$TMP3 SEE IF READ OK FROM PORT B. 
01065 1401 BEQ 738 ‘BR IF OK 
10652 104037 EMT 3 
10654 900240 73$: NOP 
1065 5737 001266 TST KYBCTL sSINGLE TEST MODE ? 
ot 001402 BEQ [BR IF NOT 
10 010664 104401 020106 TYPE ,SWTCHN *RETURN SWITCH TO ‘A/B' 
1 010670 1$: SCOPE SLOOP ? 
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SWITCH, OORIVE CYCLED UP 


FRARAERAARAERRARAAREREREREAERARAAEAERRARERERRERREERREREREREREREE 


:STEST 7? TEST "PORT SELECT’ SWITCH ON PORT A ~ 

jATEST THE OPERATION OF THE "PORT SELECT’ SWITCH (DRIVE CYCLED DOWN). 

A. CYCLE THE DRIVE DOWN. 

B. SWITCH TO PORT A POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

C. SWITCH THE "PORT SELECT’ SWITCH TO A; CYCLE THE DRIVE UP. 


D. WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-A IS RESET, AND 
THAT ‘ATA@A IS SET. 


E. peeve A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
"NED SET : toe ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT 8. ATTEMPT TO SET PORT REQUEST BY WRITING 0°S 
INTO ADS THROUGH PORT B. 


G. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT A. 


oS RRERERAERAAREEREEEAEEREERERERRREREERAEREERERERERREREREREERERERRE 
817: 
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TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
BEQ 2$ :BR IF NOT 
BPL 1$ *BR IF JUST ENTERED TEST 
JMP EXEC SRETURN & GET NEXT TEST NUMBER 
1$: MOV 4-1, KYBCTL [SET SINGLE TEST INDICATOR 
2s: MOV #TEST7,$LPADR :SETUP SCOPE LOOP ADDRESS 
ital MOV ATEST7.$LPERR SETUP ERROR LOOP ADDRESS 
MOVB =: #7, STS NM :MOVE #7 TEST NUMBER 
MOV #STACK, SP :SETUP THE STACK POINTER 
MOV #1,STIAES 2300 1 ITERATION 
MOVB PORTA, RMCS2(RO) ;SELECT PORT 
MOV PORTA, PTNBR smovE PORT ADDRESS TO LOCATION FOR TYPEOUT 
TYPE ,CYCLED "CYCLE DOWN THE DRIVE" 
TYPE  [SWTICHA SWITCH TO ‘A’ 
TYPE  ‘CYCLEU "CYCLE UP THE DRIVE’ 
1$: BIT #MOL .RMDS (RO) i1s "MOL® RESET 
BNE 1$ BR IF NO (DRIVE MOT CYCLED DOWN) 
2s: BIT #MOL .RMDS (RO) 71S SET ? 
BEQ 2$ 7BR IF NO (DRIVE NOT CYCLED UP) 


;DRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT A 
CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 


SEQ 0044 
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TEST erect? SWITCH ON PORT 

11026 7 1 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
10s 91 12737 13 001138 MOV #RADS SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
11 7 oY ADD RO R sADD RH/RM BASE ADDRESS 

gi 7 11 001124 MOV #ATA! 1DPRIDRY. SGDDAT “WHAT REGISTER S$ 

11052 013737 0017 $ 001164 MOV SBDDAT, $1 REGISTER CONTENTS TO Ost 
911060 737 0660 001164 BIC gc111700 STMPO aa} 4 SPECIFIED BITS 

11066 737 001124 001164 CMP DAT,STAPO ; COMPAR 

011074 001414 BEQ BR I 

011076 013737 001126 001174 MOV DAT,STMP4 § :COPY "BAD DATA’ 

011104 737 111700 001174 BIC #111700,$TMP4 = :CL LEAR THE MASKED BITS 

O11112 0957 , 001174 001124 BIS STMP4,S$GDDAT :°OR* WITH GOOD DATA FOR TYPEOUT 
O12 boss 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
011126 000240 64$: NOP 


3SET VOLUME VALID FOR PORT A 


011130 012760 000011 000000 MOV #11,RMCS1(RO)  ;ISSUE A DRIVE CLEAR 
011736 012760 000021 MOV #21.RMCS1(RO) ISSUE A READIN PRESET 
011144 012760 010000 000032 MOV #FMT16,RMOF (RO) :SET FMT16 
:CHECK THE DRIVE STATUS THROUGH PORT B; VERIFY THAT "NED* 
SSETS WHEN THE DRIVE IS ACCESSED THROUGH PORT B. 
011152 113760 001226 000010 MOVB _—s«— PORTB, RACS2(RO) >SELECT PORT B 
011160 013737 001226 001234 MOV PORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
011166 005037 001244 CLR CKERR :CLEAR THE “CHECK ERROR’ INDICATOR 
011172 016037 000012 001126 MOV RMDS(RO) SBDDAT ° ;GET CONTENTS OF RMDS 
011200 012737 000012 001122 MOV #RMDS , SBDADR 3FORM REGISTER ADDRESS OF ERROR MESSAGE 
011206 37 00112 ADD 0,$BDADR 3ADD RH/RM BASE ADDRESS 
Oliel2 005037 001124 CLR SBDAT [WHAT REGISTER SHOULD BE 
011216 013737 001126 001164 MOV SBDDAT.STMPO — :MOVE REGISTER CONTENTS TO ‘*STMPO' 
011224 042737 000077 001164 BIC ate STMPO °:SAVE SPECIFIED BITS 
011232 023737 001124 001164 CMP SGDDAT,STAPO COMPARE T 
011240 001414 BEQ [BR IF OK 
011242 001174 MOV SBDDAT [COPY "BAD DATA’ 
011250 001174 BIC ia ne CLEAR THE MASKED BITS 
011256 001124 BIS Ts, ,SGDDAT :°OR® WITH GOOD DATA FOR TYPEOUT 
01126 = com CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
O1127 CLR CKE ZCLEAR THE "CHECK ERROR’ INDICATOR 
011 001126 MOV BRE S3(RO) SBDDAT" >GET CONTENTS OF RMCS2 
011306 112 MOV #RMCS2, SBDADR FORA REGISTER ADDRESS OF ERROR MESSAGE 
11314 ADD RO, $BDADR D RH/RM BASE ADDRESS 
011 001124 MOV #NED ,SGDDAT suit? REGIS TER SHOULD BE 
011326 1164 MOV SBDDAT,$T E REGISTER CONTENTS TO "STMPO' 
O1135 1164 BIC #°CNED.$T ssive MEpr eit IED BITS 
11 1164 CMP DAT.$T ACEP ARE THE BITS 
01135 BEQ [BR IF OK 
01135 001174 MOV SBDDAT,.STMP4 § : COPY ‘BAD DATA’ 
011 001174 BIC #NED, STMP 3CLEAR THE MASKED BITS 
O11 6 001124 BIS STMPL,S$GDDAT :°OR" WITH GOOD DATA FOR TYPEOUT 
O1137 a com CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
b11404 CLR RMDS(RO) sTRY TO SET REQUEST BY WRITING THROUGH 
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3THE LOCKED OUT PORT (PORT ‘B") 
;VERIFY THAT DRIVE STAYS LOCKED ON PORT A 


011410 11 760 1224 10 MOVB PORTA, RACS2(RO) >SELECT PORT A 
011416 oi 1224 MOV NBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
11424 01 760 13 12 MOV #13 AADStRO) sISSUE A RELEASE THROUGH PORT A 
011432 01 1224 0012 MOV PORTA, SEIZPT ADDRESS OF "LOCKED ON’ PORT 
011440 1137 1226 10 MOVB _—s«— PORT, -RACS2CRO) >SELECT PORT 
011446 01 1226 001234 MOV PORTB.PTNBR Dov PORT ADDRESS TO LOCATION FOR TyPEOUT 
011454 005037 001244 . CLR CKERR :CLEAR THE “CHECK ERROR’ INDICATOR 
011460 gi 7 1 1126 MOV RMDS(RO) ,SBDDAT °:GET CONTENT 
11466 012737 1 11 MOV #RADS SBDADR zFORR REGISTER ADDRESS OF ERROR MESSAGE 
011474 7 0011 ADD 0, SBDADR zADD_RH/RM BASE ADDRESS 
011500 005037 001124 CLR REGISTER SHOULD BE 
011504 013737 0011 6 001164 MOV S500 AT.$ 3MOVE REGISTER CONTENTS TO "STMPO* 
011512 042737 000077 001164 BIC ag STMPO ":SAVE SPECIFIED BITS 
011520 023737 001124 001164 CMP T,STAPO :EOWPARE.T THE BIT 
011526 001414 BEQ I 
011530 013737 001126 001174 MOV SBDDAT.STMP4 § : COPY “BAD DATA’ 
011536 04 30 177700 001174 BIC #177700, $TMP4 3CLEAR THE MASKED BITS 
011544 053 , 7 001174 001124 BIS STNG. SGDDAT _:°OR*® WITH GOOD DATA FOR TYPEOUT 
011554 005137 001244 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
011560 000240 70$: NOP 
IF ERROR OCCURRED, CHECK FOR LOOP ON TEST 
011562 105737 001103 TSTB = SERFLG :DID AN ERROR OCCUR 
011566 001412 BEQ BR IF 
011570 032777 001000 167342 BIT #SWO9, aSWR [SEE IF LOOP ON ERROR (SWR9 = 1) 
011576 001406 BEQ 3$ ‘BR IF NOT 
011600 105037 001103 CLRB  $ERFLG *CLEAR THE ERROR FLAG 
011604 005037 001176 CLR STIMES *CLEAR THE MAX ITERATION COUNT 
011610 000177 167274 JMP @SLPERR *60 TO THE LOOP ADDRESS 
011614 005737 001266 3S: TST KYBCTL ZIN SINGLE TEST MODE ? 
011620 001460 BEQ 6$ 7BR IF NOT 
011622 052 040000 167310 BIT #SW14,aSWR [LOOP ON TEST ? 
0116 1054 BNE :BR IF LOOPI 
011632 104401 020317 TYPE »CYCLED [TYPE "CYCLE DOWN’ 
011656 104401 0106 | TYPE - SUT CHIN **SWITCH TO A/B' 
011642 104401 0203 TYPE CLEU S*CYCLE THE DRIVE UP* 
011646 113760 1224 10 MOVB BORTAS RMCS2(RO) “:SELECT PORT A 
011654 01 001 4 001234 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
011662 032760 01 12 4$: BIT WMOL.RMDS(RO)” :IS "MOL’ RESET ? 
011670 001374 BNE 4$ ZBR JF NO (ORIVE “NOT CYCLED DOWN) 
011672 0 2760 010000 000012 5$: BIT AMOL.RMHS(RO) 31S "MOL’ SET ? 
011700 001774 BEQ 5$ *BR IF NO (DRIVE NOT CYCLED UP) 


3SET VOLUME VALID FOR BOTH PORTS 


011702 01 760 11 MOV #11,RMCS1(R ; ISSUE A DRIVE CLEAR THROUGH PORT A 
011710 0127 21 MOV aate -RMCS1 ong} ISSUE A READIN PRESET THROUGH PORT A 
11716 0127 13 MOV RMCS1( sRELEASE PORT A 

11724 1137 1226 1 MOVB Ponts, RACS3 (RO) sSELECT PORT B 

11 4 ot3 1226 1234 MOV pone VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
01174 12760 1 MOV RACS IC RO) ® I EADIN PRESET THROUGH PORT B 
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iret MOV #EMT16,RMOF (RO) SET F MTG 

1754 MOV #13 ,RACS| (RO) c TET EASE POR TB 

011768 4s MOV # . WATCH SPINDLE MOTOR "COOL DOWN’ DELAY 
ory? NOT 

ot 

1 


1768 
1 TST WATCH :FINSIH 
177 O03 575 BNE 7$ BR IF 
1356 000004 SCOPE [LOOP ? 
as $608 000400 BR TST10 +360 TO NEXT TEST 
FRRRAAAAARAREERARERAREREAEEEERRRRRERRREREEERRERERERRRRRRERRREREE 
:STEST 10 TEST "PORT SELECT’ SWITCH ON PORT 
SATEST THE OPERATION OF THE ‘PORT SELECT*® SWITCH (DRIVE CYCLED DOWN). 
ie A. CYCLE THE DRIVE DOWN. 
¢® &. SWITCH TO PORT B POSITION. VERIFY THAT THE DRIVE IS IN 
* NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
:* PORTS, ARE CORRECT. 
i C. SWITCH THE "PORT SELECT’ SWITCH TO B; CYCLE THE DRIVE ur. 
® D. WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-B8 IS RESET, AND 
z* THAT *ATA-B IS SET. 
i E. ISSUE A A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
7* | 
¢® F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
te "NED® SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
be PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING 0'S 
:* INTO RMDS THROUGH PORT A. 
t® G. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
:* DRIVE REMAINS LOCKED ON PORT B. 
te H. CYCLE THE DRIVE DOWN. CHANGE THE "PORT SELECT’ SWITCH TO 
z* A/B:; CYCLE THE DRIVE UP. 
t® J. VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION 
8 BITS ARE SET, AND THAT BOTH "VV" BITS ARE RESET. 
01200 ; Loesinannngnanenstebeneeetnnannncnenessosensanenecenenneenannts 
013003 005737 0012.5 * TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
012006 001406 BEQ 2$ “RR IF NO 
012010 1 BPL 1$ 3BR_IF JUST ENTERED TEST 
o12012 0001 09 61 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
012016 012737 177777 001266 1$: MOV SET SINGLE TEST INDICATOR 
912024 12737 012040 001106 2$: MOV STEST IO SEPADR “SETUP SCOPE LOOP ADDRESS 
01205 2 12737 012040 00111 aie MOV ATESTIO.S$LPERR SETUP ERROR LOOP ADDRESS 
Si? are guegg core ge eS SE Nt ELE 
pi50s9 01 706 000001 001176 MOV 41 stines £:D0 1 ITERATION 
012060 1137 1226 000010 MOVB _—s«—PORTB, RACS2 (RO) SELECT PORT B 
012066 413389 901386 ope ose MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


=~ 
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TEST ‘PORT SELECT B 


SWITCH ON PORT 
12074 104401 020317 TYPE oCYCLED s'CYCLE DOWN THE DRIVE’ 
12100 1 reid 3 11 TYPE oSWTCHB sSWITCH TO ‘B' 
12104 104401 37 TYPE oCYCLEU 3"CYCLE UP THE DRIVE’ 
012110 032760 010000 000012 1S: BIT AMOL.RMDS(RO) ;IS ‘MOL’ RESET ? 
1 138 1374 E 1$ sBR IF NO (DRIVE NOT CYCLED DOWN) 
121 2 010000 000012 2$: BIT #MOL.RMDS(RO) 31S * SET ? 
0121 001774 BEQ 2s 3BR IF NO (DRIVE NOT CYCLED UP) 


sDRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT B 


012130 005037 001244 CLR CKERR 3CLEAR THE "CHECK ERROR’ INDICATOR 
012134 016037 00001 001126 MOV RMDS(RO),$BDDAT °:GET CONTENTS OF 
012142 012737 000012 00112 MOV #RMDS,$BOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
012150 7 00112 ADD RO, SBDADR ZADD BA DR 
012154 012737 110600 001124 MOV HATA'MOL'DPR!IDRY.$GDDAT ;WHAT REGISTER SHOULD BE 
012162 013737 001126 001164 MOV $8 SMOVE REGISTER CONTENTS TO ‘STMPO' 
012170 042737 066077 001164 BIC #°C111700,$TMPO ':SAVE SPECIFIED BITS 
012176 023737 001124 001164 CMP SGDDAT,$TAPO ; COMPARE THE BITS 
012204 001414 BEQ 64$ ; OK 
012206 013737 001126 001174 MOV SBDDAT,STMP4 § : COPY ‘BAD DATA’ 
012214 042737 111700 001174 BIC #111700,$TMP4 CLEAR THE MASKED BITS 
Oissee 7 a4 001174 001124 eis STMP4 ,SGDDAT 3:°OR® WITH GOOD DATA FOR TYPEOUT 
012232 boses7 001244 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
012236 000240 64$: NOP 

;SET VOLUME VALID FOR PORT B 
012240 012760 000011 000000 MOV #11,RMCS1(RO) ;ISSUE A DRIVE CLEAR 
012246 012760 000021 000000 MOV #21.RMCS1(RO) ISSUE A READIN PRESET 
012254 012760 010000 000032 MOV #FMT16,RMOF (RO) :SET FMT16 

3CHECK THE DRIVE STATUS THROUGH PORT A; VERIFY THAT "NED* 

[SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A. 
012262 1137 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
012270 013737 001224 001234 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012276 005037 001244 CLR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
912302 16037 12 001126 MOV RMDS(RO),SBDDAT ";GET CONTENTS OF RMDS 
012310 012737 000012 001122 MOV ARMDS,S$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
012316 37 0011 ADD RO, SBDADR 3ADD RH/RM BASE ADDRESS 
01232 5037 001124 CLR SGDDAT SWHAT REGISTER SHOULD BE 
012326 013737 0011 001164 MOV SEDDAT STMPO MOVE REGISTER CONTENTS TO ‘STMPO' 
0123 04 7 1164 BIC #°C177700,$TMPO ':SAVE SPECIFIED BITS 
01 342 33737 001124 001164 ca SGDDAT.STAPO : COMPARE THE 
012352 013737 001126 001174 MOV SDDAT STMP4 :COPY ‘BAD DATA’ 
oI 2 7? 177700 001176 BIC #177700,$TMP4 CLEAR THE MASKED BITS 
o1 366 33 , 7 001174 001124 BIS STMP4,$GDDAT :°OR® WITH GOOD DATA FOR TYPEOUT 
1 Hh 008157 001244 com CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
12404 6 9 1244 CLR CKERR SCLEAR THE "CHECK ERROR’ INDICATOR 
12410 016037 10 001126 MOV RMCS2(RO),S$BDDAT. ;GET CONTENTS OF RMCS2 
012416 012737 g 0011 MOV (S2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
012424 37 00112 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
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5- 
PORT 8B 
24 MOV WNED,$GDDAT ;WHAT REGISTER SHOULD BE 
64 MOV SBDDAT,$T *MOVE REGISTER CONTENTS TO ‘STMPO' 
64 BIC #*CNED, ST SAVE SPECIFIED BITS 
64 CAP SGDDAT.$T scone | HE BITS 
7%4 MOV DDAT STMP4 =: COPY 
gi BIC D.STMP4 SELEAR THE PAD BITS 


BIS STnPd, SGDDAT "OR" WITH GOOD DATA FOR TYPEOUT 
COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 


NOP 
CLR RMDS (RO) sTRY TO SET REQUEST 7 os bd J THROUGH 
;THE LOCKED OUT PORT ( 


zVERIFY THAT DRIVE STAYS LOCKED ON PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,.RADS(RO) s ISSUE A RELEASE THROUGH PORT B 

MOV PORTB,SEIZPT ADDRESS OF "LOCKED ON’ PORT 


68$: 


MOVB _—s— PORTA, Sete (RO) ELECT PORT A 

MOV PORTA,PTNBR Ohove® SORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 

MOV RMDS (RO) , SBDDAT -GET CONTENTS OF RMDS 

MOV WAMDS SBBAD FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR D RH/RM BASE ADDRESS 

CLR SGDDAT SWHAT REGISTER SHOULD BE 

MOV SBDDAT.$TMPO — :MOVE REGISTER CONTENTS TO ‘STMPO' 


BIC #°C177700,$TMPO ':SAVE SPECIFIED BITS 
SGDDAT,STAPO ; COMPARE THE BITS 
70: BR IF OK 

SBDDAT,$TMP4 § : COPY “BAD DATA’ 

BIC #177700, $TMP4 CLEAR THE MASKED BITS 

BIS STNPS .SGDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 


EMT 
COM CKERR 3sSET THE REGISTER COMPARE ERROR INDICATOR 
70$: NOP 
IF ERROR OCCURRED, CHECK FOR LOOP ON TEST 
iste SERFLG sDID on Ennen OCCUR 
ah  vaaaaee :SEE IF LO LOOP ON ERROR (SWR9 = 1) 
CLRB SERFLG ?CLEAR rd ERROR FLAG 
CLR STIMES ?CLEAR AR THE MAX lth COUNT 
JMP aSLPERR :GO TO THE LOOP AD DRESS 
3$: BIT #SW14,aSWR LOOP ON TEST ? 
BNE 3 IF LOOPING 
TYPE CYCLED sTYPE ‘CYCLE DOWN’ 
TYPE ~SWTCHN : 3, Sul TC 


Hi 
LEU S"CYCLE THE DRIVE UP* 
PORTE’ RACS2(RO) -SELECT PORT 

PORTB,P 0) vi PORT ADDRESS T TO LOCATION FOR TYPEOUT 


MO 
4$: BIT #MOL BMS (RO) i1s rOL 
BNE 4$ BR IF No (DRIVE NOT CYCLED DOWN) 
5$: BIT WMOL,RMDS(RO) 31S "MOL SET ? 


RM8O DUAL PORT PT2 MACRO V04. ae alae 07:13:40 PAGE o-24 * SEQ 0050 
TEST ‘PORT SELECT 


SWITCH ON POR 
913002 001774 BEQ 5$ 3BR IF NO (DRIVE NOT CYCLED UP) 
3SET VOLUME VALID FOR BOTH PORTS 

1 1 768 11 000000 MOV #11 RCS) (RO) Z ISSUE A DRIVE CLEAR THROUGH PORT B 

1 is 127 oct 000 MOV iy >RMCS1 (RO 3 ISSUE A READIN PRESET THROUGH PORT B 

1 127 0 MOV Abe, ACSI (ROD ASE PORT B 
013026 11357 \$st 8 01 MOVB MCS2(RO) °:SELECT PORT A 
01 0137 1224 1234 MOV wo MOVE PORT Fara TO LOCATION FOR Tyecout 
013042 012760 21 000000 MOV #21,RMCS1(RO) =; ISSUE A READIN PRESET THROUGH PORT 
013050 015768 HA ise! 000032 MOV HEMT 16. ROE (RO) 3SET 4 
013056 01 760 1 sis 9 MOV #1 1(RO) ;RELEASE PORT A 
013064 012737 072460 001254 6$: MOV #30000.,UATCH ; SPINDLE MOTOR "COOL DOWN’ DELAY 
013072 005737 001254 7$: TST FINISHED ? 
013076 001375 E ae sBR IF 
013100 000004 SCOPE st ? 
013102 000137 013110 SEOP 3GO TO THE END OF PASS ROUTINE 

IIIT tiii titi titi 
iPuT NEWTEST HERE 
SRRRRERARRERERERARRRERER ERR RRERARERRRERRERERAARRRE ERE E REE REE 

013106 000004 té111: SCOPE 
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END OF PASS ROUTINE 


1 ~SBTTL END OF PASS ROUTINE 


ERRRRRRRARARERERERAREREREERAAAEEERERERARERRERRRERERERER AAAS REE 

; INCREMENT THE PASS NUMBER ($PASS) 

3 *IND ICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM as 
s*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 
[*WHERE XXXXX AND YYYYY ARE eet L NUMBERS 
:*IF THERES A MONITOR GO TO IT 

7*IF THERE ISN'T JUMP TO TSTIAA 


013110 SEOP: 
013110 005737 001266 TST KYBCTL s ENTERED TEST VIA KEYBOARD COMMAND ? 
013114 001402 BEQ +6 “BR IF 
013116 000137 002610 JMP EXEC SRETURN 4h KEYBOARD CONTROL 
013122 005037 001102 CLR $TSTNM 33ZERO THE TEST NUMBER 
013126 005037 001176 CLR STIMES :: THE NUMBER OF ITERATIONS 
013132 005237 001100 INC SPASS i INCREMENT THE PASS NUMBER 
013136 042737 100000 001100 BIC #100000,$PASS - :DON'T ALLOW A NEG. NUMBER 
013144 005327 DEC (PC)+ +: LOOP? 
013146 000001 SEOPCT: .WORD 1 
013150 003066 BGT $DOAGN zr YES 
013152 012737 MOV (PC)+,a(PC)+ § ;;RESTORE COUNTER 
013154 000001 SENDCT: .WORD 1 
013156 013146 SEOPCT 
013160 401 013166 TYPE 65$ z:TYPE ASCIZ STRING 
013164 07 BR *:GET OVER THE ASCIZ 
3265$: .ASCIZ <12><15>/END PASS #/ 
013204 64S: 
013204 013746 001100 MOV SPASS,-(SP) z7SAVE SPASS FOR TYPEOUT 
013210 104405 TYPDS 7:60 DE PES DECIMAL ASCII WITH SIGN 
013212 005737 001112 TST SERTTL t:SEE IF ANY ERRORS THIS PASS 
013216 001431 BEQ $GT42P +:BR IF NO ERRORS TO 
013220 104401 013226 TYPE 67$ 3: TYPE ASCIZ STRI 
013224 000421 BR 66$ *GET OVER THE ASCIZ 
ns i678" PASCIZ 7 TOTAL ERRORS SINCE LAST REPORT / 
013270 013746 001112 MOV SERTTL,-(SP) 13 SAVE SERTTL FOR TYPEQUT 
S TOTAL NUMBER 0 
013274 104405 TYPDS $360 TYPE=-DECIMAL AStit WITH SIGN 
013276 005037 001112 CLR SERTTL 3 CLEAR ERROR TOTAL 
013302 104401 001207 $GT42P: TYPE $CRLF Si TYPE CARRIAGE RETURN, LINE FEED 
013306 013700 000042 $GET42: MOV a#42,RO0 *:GET MONITOR ADDRESS 
013312 001405 BEQ SDOAGN + BRANCH IF NO MONIT 
013314 000005 RESET S:CLEAR THE WORLD 
013316 004710 SENDAD: JSR PC, (RO) 7:60 TO MONITOR 
013320 000240 NOP ::SAVE ROOM 
013322 340 33 
013304 000240 NOP t:ACT11 
13326 SDOAGN: 
013326 000137 JMP a(Pc)+ : :RETURN 
013330 003074 SRTNAD: .WORD TSTIAA 
013332 377 377 000 $ENULL: BYTE -1,-1,0 :;NULL CHARACTER STRING 


4 
5 ae 36 
6 013544 
? gis 50 
8 013354 
9 0135 
10 at 4 
1 Se 
is Sa 
14 013406 
i Ses 
17 O13434 
18 0134 
19 013434 
$y 013440 
5 Bs 
$3 013454 
24 013460 
- 25 013466 
26 
27 
28 
29 013470 
30 013476 
31 013502 
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CLOCK SUBROUTINES 


.SBTTL CLOCK SUBROUTINES 
sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 

#CKCLK1,@#ERRVEC ;:SET UP VECTOR FOR CLOCK CHECK 
QMERRVEC+2 


CKCLK: MOV 
CLR 
TST aSLKCSR 
MOV EC,R1 
MOV Hite (R1)+ 
MOV 
MOV W éstx esp 
MOV m8, g aSLKCSR 
BR 
CKCLK1: ADD agp 
MOV He QFERRVEC. 
TST a$Lks 
MOV SLLVEC,R1 
MOV #CLOCK (R (R1)+ 
MOV 
MOV #100. 0° aSLKS 
BR 
CKCLK2: ADD he “SP 
ADD #2, (SP) 
CKCLK3: MOV #6. a#ERRVEC 
RTS PC 
zROUTINE TO COUNT CLOCK TICKS 
CLOCK: ADD #17. , TIME 
TST WATCH 
BEQ 
SUB #17. ,WATCH 
BPL 
CLR WATCH 
1$: RTI 
;ROUTINE TO 
TOLER: TST 
MOV rth Sp), (SP) 
MOV ack Rss (SP) 
MOV ) 4 4tsp 
ASR 
ASR ($5) 
ADD (SP)+,2(SP) 
RTS R5 


3N 
i CHECK FOR KW11-P 
KWi1-P VECTOR ADDRESS 
Ser UP KWi1-P VECTOR 


SLOAD COUNTER BUFFER WITH 1°S 
SP ckOLK <r CNY UPY 16HS, CONT INT 


sRESTORE THE da POINTER 
age ERROR VECTOR TO CHECK FOR KW11-L 


‘a 
KWIi-L [VECTOR ADDRESS 
SET uP KWIl-L VECTOR 


;PSW 6 
ser KWiT=L INTERRUPT 
sRESTORE THE STACK POINTER 


S INCREMENT RETURN, NO CLOCK 
SRESTORE THE ERROR VECTOR 


sADD 17 MS TO tog ia Sh COUNTER 

31S WATCH ALREADY ZERO 

sBR_IF IT I 

ta MS FROM WATCH DOG COUNTER 


NOT M 
ZCLEAR WATCH DOG COUNTER 
- gRETURN 


age + 25% TIME TOLERANCE VALUES 


sMAKE ire ON THE STACK 


E BY 

DIVIDE BY 2 AGAIN (FOR A rere OF 4) 
ULATE UPPER LIMIT FOR T 

SRETURN WITH TOLERANCES ON THE STACK 


SEQ 0052 


Z 
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sc R ROUTINE 


RNI 
OPE HANDLER 
4 -SBTTL SCOPE HANDLER ROUTINE 


a ee rere as cnteers St aaan SERPE 

SSTHIS ROUT INS CONTROLS THE LOOPING 0 ge HE IT WILL INCREMENT 

‘ me LOAD THE TEST wiv STNM) INT O THE DISPLAY REG. (DISPLAY<7:0>) 
LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

SS TNE suite OPTIONS PROVIDED BY THIS ROUTINE ARE: 


+ *SW14 ON TES 
issuii=t INHIBIT ITERATIONS 
3* SCOPE ::SCOPE=10T 
013550 SSCOPE: 
013550 104407 CKSWR zsTEST FOR CHANGE IN SOFT-SWR 
013552 737 014104 JSR PC, STOP 
013556 056777 040000 165354 1$: eI! #B1T14,aSwR ::L00P ON | PRESENT TEST? 
013566 000137 014066 ak JMP SOVER :: JUMP OVER SCOPE ROUTINE 
:WHAHASTART OF CODE FOR THE XOR TESTERS#AAA re 
013572 000416 $XTSTR: BR x} 33.1F RUNNING ON THE "‘XOR’ TESTER CHANGE 
*:THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
013574 013746 000004 MOV @WERRVEC,<(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
013600 012737 013620 000004 MOV #5$,aWERRVEC = SET _FOR TIMEOUT 
013606 737 177060 TST a#177060 IME OUT ON XOR? 
013612 012637 000004 MOV (SP) +, @#ERRVEC ; RESTORE THE ERROR VECTOR 
013616 51 BR 7:60 TO THE NEXT TEST 
013620 022626 5$: CMP (SP) +, (SP)+ <SCLEAR THE STACK AFTER A TIME OUT 
013622 012637 000004 MOV (SP) +, a#ERRVEC 33RESTORE THE ERROR VECTOR 
013686 000517 BR $OV “LOOP ON THE PRESENT TEST 
0136 6$:;#AHAAEND OF CODE FOR THE KOR’ "TESTERAMAAE 
013630 105737 001103 2$: TSTB © SERFLG AN ERROR OCCURRED? 
013634 001465 BEQ 4 NO 
013636 022737 177777 014454 CMP #-1,CPSAVE 33SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
013644 001455 BEQ 2003$ *KICK AROUND ROUTINE IF SO 
013646 013746 900004 MOV ERRVEC,- = (SP) 33SAVE CONTENTS OF ERROR VECTOR 
013652 012737 013670 000004 MOV ‘ 000$,ERRV [SETUP *TRAP® ADDRESS 
013660 013737 177766 014454 OV j 177766.¢ CPSAV : <SMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
O13656 O12? 177777 014454 20008: MOV 4-1, CPSAVE z:SET CPU ERROR REGISTER TIMEOUT INDICATOR 
013676 012716 013704 MOV #2001$, (SP) t:SETUP RETURN ADDRESS 
013704 01 000004 2001$: MOV (SP)+,ERRVEC  ;;RESTORE CONTENTS OF ERROR VECTOR 
013710 022737 177777 014454 2002$: CMP #~1 CPSAVE s:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
013716 001430 BEQ 2003 ::BRANCH IF 
013720 032737 000001 014454 BIT oor 700, CPSAVE [:SEE IF THE POWER MONITOR BIT IS ON 
0137 1434 BEQ +:BRANCH TO CONTINUE ROUTINE IF CLEAR 
O13 2 7 000001 177766 BIC #81T00,177766  ::CLEAR THE BIT FOUND TO BE SET 
ot 736 13746 001140 MOV -(§P) T:SAVE SWR 
1374 17646 MOV acsé) =(SP) S:SAVE SWR V, 
013746 le 3 9001 6 001140 MOV #176, SUR S:GET SOFTWARE SWR ADDRESS 
013754 oi 7 165160 MOV (SP) -@SWR $:GET CURRENT SWR VAL 
013760 001000 165152 BIC 169,aswR *:DON'T ALLOW LCOP ON ERROR ON THIS ERROR 
01 766 104177 EMT 1 [CALL SPECIAL POWER FAIL BIT ERROR CALL 
01377 0126 26 900000 MOV (SP)+,a(SP) tTRESTORE SWR TO ORIGINAL VALUE 
013774 0126. 114 MOV (SP)+, SUR SSRESTORE SWR ADDRESS 
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TINE 
20038: 
105037 1103 4$: CLRB ERFLG 33ZERO THE ERROR FLAG 
g 138 CLR ries ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
444 165122 3$: ait + a 1,aSwWR Hd ae a ITERATIONS? 
19 7 001100 TST $PASS s21F FIRST PASS OF PROGRAM 
14 BEQ 1$ 33 INHIBIT ITERATIONS 
35 001198 INC HH CNT sz INCREMENT ITERATION COUNT 
1176 001104 CMP TIMES ,SICNT ::CHECK THE NUMBER OF ITERATIONS MADE 
Ole BGE ::BR IF MORE ITERATION REQUIRED 
1 1 001104 1$: MOV #1,$1CNT s;REINITIALIZE THE ITERATION COUNTER 
% 737 0141 $ 001176 MOV SMXCNT.STIMES ;:;SET NUMBER OF ITERATIONS TO DO 
05237 11 SSVLAD: INCB STSTNA 3;COUNT TEST NUMBERS 
gig 7 Ooty 6 Vv (SP) ,SLPADR z:SAVE SCOPE LOOP ADDRESS 
i 77 1102 165046 SOVER: MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
V L (S$ oe 
13716 001106 ay SLPADR, (SP) oees RETURN ADDRESS 
00000 SMXCNT: 5. :3MAX. NUMBER OF ITERATIONS 
3;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 
STOP: 
012746 000140 MOV #PR3,-(SP) :3PUT NEW PS ON STACK 
012746 014116 MOV #64$,-(SP) ::PUT NEW PC ON STACK 
2 RTI :3POP NEW PC AND PS 


zRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 


012746 000240 MOV #PRS ,=(SP) 33PUT NEW PS ON STACK 
012746 014130 MOV #65$,-(SP) 33PUT NEW PC ON STACK 
000002 658: RTI 33POP NEW PC AND PS 


000207 RTS PC 3RETURN 
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ERROR HANDLER ROUTINE 


1 
1 
1 
1 


-SBTTL ERROR HANDLER ROUTINE 


pAMRAAARAAAAAAAAAAAAAeeLeTeAAKKEAKAAAAKAAKAAAAAAAKRAAAAAATehee 
[*THIS ROUTINE WILL_INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
3 *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

isTHE SWITCH wall > PROVIDED BY THIS ROUTINE ARE: 


‘eeul3=] INHIBIT ERROR TYPEOUTS 
i sSu10=1 BELL ON ERROR 
; ERROR N Z;ERKOR=EMT AND N=ERROR ITEM NUMBER 
SERROR: CLRB  _—sIBSAVE z:CLEAR THE ITEM BYTE SAVE LOCATION 
CKSWR ::TEST FOR CHANGE IN SOFT-SWR 
MOVB STSTNM, TSTNUM 
7$: INCB = SERFLG 33SET THE ERROR FLAG 
BEQ 7$ [DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM, aDISPLAY ¢cDISPLAY TEST NUMBER AND ERROR FLAG 
BIT . #BIT10.a 33BELL ON ERROR? 
BEQ - 1 Pp 
TYPE S$BELL 3 RING BELL 
1$: INC $ERTTL =COUNT THE NUMBER OF ERRORS 
MOV (SP) , SERRPC <2GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, $ERRPC 
MOVB  aSERRPC,SITEMB 3STRIP. AND SAVE THE ERROR ITEM CODE 
BIT #B1T09, aSWR 33SEE IF LOOP ON ERROR IS SET 
BNE 1 : :BRANCH AROUND ROUTINE IF SO 
CMPB 4 s«#'177, SITEMB 33SEE IF THIS IS THE POWER FAIL CALL 
BEQ 10048 : :BRANCH ROUTINE IF IT IS 
TST IBSAVE 33 SEE If THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
CHP ‘i CPSAVE 33SEE If CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
MOV 3ISAVE CONTENTS OF ERROR VECTOR 
MOV He [SETUP ‘TRAP’ RETURN ADDRESS 
MOV 77 » CPSAVE  ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
1000$: MOV 1 SAVE z:SET CPU ERROR REGISTER TIMEOUT INDICATOR 
mov ft CPsAVE, +:SETUP RETURN ADDRESS 
1001$: MOV (SP)+,ERRVEC  ;;RESTORE CONTENTS OF ERROR VECTOR 
1002$: cup #~1 CPSAVE :2SEE If CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
git #31700, sCPSAVE 3; SEE Ir Pd ‘POWER MONITOR BIT IS SET IN CPU ERR REG 
BIC #81100, 177766 33CLEAR THE BIT FOUND SET 
MOVB HTySilehe IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
MOVB {TE +:SET SITEMB TO SPECIAL POWER FAIL POINTER 
BRANCH OVER IBSAVE CLEARING 
10038: CLRB —s«IBSAVE s:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
* BIT #81713 ,aSuR 3s$KIP TYPEOUT IF SET 
BNE *SKIP TYPEOUTS 


JSR PC ,SERRTYP 2260 TO USER ERROR ROUTINE 
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ER ROUTINE 
40 104401 001207 i TYPE  ,SCRLF 
412 105737 014456 sys TSTB IBSAVE 
416" 1005 BNE g 
0 005 164514 TST SwWR 
rt z, * 
10440 ‘ss CKSWR 
020737 013316 000042 CMP WSENDAD ,a#42 
4 1001 BNE 6$ 
444 a HALT 
4444 105737 014456 ‘ TSTB IBSAVE 
450 001236 BNE $ 
52 000002 RTI 
34 CPSAVE: .WORD 0 


IBSAVE: .WORD 0 


SEQ 0056 


BSAVE IS LOADED 

N E NOT = NO HALT ON PUR HON BIT ERROR 
:SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SwWR 


33ACT=-11 AUTO-ACCEPT? 
CH IF NO 


33SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
BRANCH BACK TO CALL ORIGINAL ERROR 


S:LOCATION TO SAVE CPU ERROR REG CONTENTS 
::LOCATION TO SAVE ITEM BYTE 
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ROUTINE 


~SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


peReReeRARReAAKeeAAAeteereeaneeeaneeeeenereeneanenteeeeeeees 

3*THIS ROUTINE USES THE ““ITEM CONTROL BYTE" pe Mg To oA ny by Hat ba 
z*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’ (SERRTB), 
[*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


001207 TYPE SCRLF se""CARRIAGE RETURN’ & "LINE FEED" 
MOV RO, (SP) S:SAVE RO 
CLR RO- +:PICKUP THE ITEM INDEX 
001114 BISB $a#SITEMB,RO 
BNE 1$ :1F ITEM NUMBER IS ZERO, JUST 
<ITYPE THE PC OF THE ERROR 
001116 MOV SERRPC,-(SP) He VE SERRPC FOR TYPEOUT 
TyPoc “i $260 TVPE-OCTAL ASCIIC(ALL DIGITS) 
000177 1$: CMPBs«#177,,RO 33SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
BNE 1000: = SBRANCH IF NOT 
001102 015016 MOVB  $TSTNM,PFTSTN 33GET TEST NUMBE 
014656 MOV #PFECH,RO MOVE POWER FAIL ERROR CALL TABLE TO RO 
BR 1001$ + BRANCH TO C 
1000$: DEC RO : ADJUST. THE THE INDEX SO THAT IT WILL 
ASL RO 3: OR THE ERROR TABLE 
ASL RO 
ASL RO 
001276 ADD #SERRTB,RO s3FORM TABLE POINTER 
014554 1001$: MOV (RO) +, 2$ PICKUP ‘ERROR MESSAGE’’ POINTER 
BEQ 3$ ::SKIP TYPEQUT IF NO POINTER 
TYPE 33] YPE THE "ERROR 
2$: .WORD 0 zEVERROR MESSAGE’’ POINTER GOES HERE 
001207 TYPE  ,SCRLF 33°CARRIAGE RETURN’ & “LINE FEED 
014572 3$ MOV (RO) +,4$ 3 sPICKUP SSATA HEADER’ POINTER 
BEQ Ey ::SKIP TYPEQUT Fe 
TYPE 33 TYPE THE “DAT. 
4$: .WORD 0 :'DATA HEADER Mt er GOES HERE 
001207 TYPE SCRLF 3 3°’CARRIAG nn INT "LINE FEED 
5$: MOV R1,~(SP) re 
(RO)+,R1 : PICKUP DATA TABLE'’ POINTER 
BEQ 9$ 3:BR_IF NO DATA TO BE TYPED 
(RO)+,RO ::PICKUP, “DATA FORMAT’: POINTER 
6$: TSTB —s- (RO) + 33OCTAL" OR “DECIMAL 
7$ “BR IF DECIMAL 
MOV a(R1)+,-(SP)  ::SAVE a(R1)+ FOR TYPEOUT 
TyPoc i £:G0 TYPE=--OCTAL ASCIICALL DIGITS) 
7$: 
MOV @(R1)+,-(SP) —; SAVE @(R1)+ FOR TYPEOUT 
TYPDS 360 TYPE--DECIMAL ASCII WITH SIGN 
88: TST (R1) 31S THERE ANOTHER NUMBER? 
BEQ 9$ "BR IF NO 
014652 TYPE 11$ S:TYPE TWO(2) SPACES 
BR rx 3 + SLOOP 
MOV (SP)+,R1 z:RESTORE R1 
10$ MOV (SP)+.RO + :RESTORE RO 
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g & 


PT 
sa TYPE SCRLF i 3 "CARRIAGE RETURN’ & "LINE FEED"’ 
040 000 11S: -ASCIZ / 7 +:TWO(2) SPACES 
014750 015 3 PFECH: PFECH1,PFECH2,PFECH3 PFECHA s:WORDS DEFINING TABLES BELOW 
11 127 PFECH1: .ASCIZ 2POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
105 123 PFECH2: -ASCIZ 2TESTNO ERR PC CPUERREG? 
0011 


16 014454 PECHS: “WORD PFTSTN, SERRPC,CPSAVE,0 
000 000 PFECH4: .BYTE 0,0,0,0 
PFTSTN: {WORD 0 z:CONTAINS TEST NUMBER FOR PF BIT ERROR 
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TYPE ROUTINE 


-SBTTL TYPE ROUTINE 


FRARAARAARAARAARAAAAAREEREEEAERAARAERAAREREEAERAREEREARERERAEREE 


3 #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST ns bod WITH AO Ovres 


*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*NOTET: SNULL CONTAINS THE CHARACTER YY BE USED AS THE” FILLER CHARACTER. 
3 *NOTE@: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

z sNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CALL: 
3#1) USING A TRAP INSTRUCTION 
TYPE oMESADR zzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


740R 
te TYPE 
7* MESADR 
3* 
015020 105737 001157 $TYPE: TSTB  $TPFLG z1S THERE A TERMINAL? 
015024 100002 BPL 1$ 7:BR IF 
015026 HALT HALT HERE IF NO TERMINAL 
0150 0 7 LEAVE 
9150 10046 1$: MOV RO.-(SP) T:SAVE RO 
15034 017600 000002 MOV @2(SP) ,RO [:GET ADDRESS OF ASCIZ STRING 
015040 112046 23: MOVB (RO) +,-(SP) z :PUSH CHARACT 0 BE TYPED ONTO STACK 
01504 001005 E 4$ [:BR IF IT MNT THET RMINATOR 
015044 005 726 TST (SP)+ T21F TERMINATOR POP IT OFF THE STACK 
015 12 60$: MOV (SP)+,RO + RESTORE R 
01505 716 000002 3$: ADD #2, (SP) 3ADJUST RETURN PC 
015054 000002 RTI + :RETURN 
013096 122716 000011 4$: CMPB Ss HT, (SP) BRANCH IF <HT> 
15062 001430 BEQ 
015064 122716 000200 CMPB ss CRLF, (SP) :;BRANCH IF NOT <CRLF> 
15070 001 BNE rt} 
913072 005726 TST (SP)+ :POP <CR><LF> EQUIV 
15074 104401 YPE cITYPE ACR AND L 
015076 001207 SCRLF 
015100 105037 015306 CLRB § $CHARCNT s:CLEAR CHARACTER COUNT 
015104 755 BR $ t:GET NEXT CHARACTER 
015106 737 015170 5$: JSR PC, $TYPE 2:60 TYPE THIS CHARACTER 
01511 123726 001156 6S: CMPB sé SFLALLLC, toy *:1S IT TIME FOR FILLER CHARS.? 
015116 13 BNE $ ::1F NO GO GET T CHAR. 
015120 013746 001154 MOV S$NULL ,-(SP) *3GET # OF FILLER CHARS. NEEDED 
SAND THE NULL CHAR. 
9151 4 105366 000001 7$: DECB —s«<3( SP) *:DOES A NULL NEED TO BE TYPED? 
151 2 9 BLT *:BR IF NO=-GO POP THE NULL OFF OF STACK 
gi31 737 015170 JSR PC, $TYPEC £:G0 TYPE A NULL 
13156 1 3337 015306 DECB $CHARCNT £:D0 NOT COUNT AS A COUNT 
015142 000770 GR 7$ 3;LO0P 
sHORIZONTAL TAB PROCESSOR 
015144 110716 0 gs: MOVB i EREPLACE TAB WITH SPACE 
015150 1517 : JSR if $1 ipec zETYPE A SPACE 
15154 132737 015306 BITB HARCNT BRANCH IF NOT AT 
15162 13 BNE STAB STOP 
15164 005726 TST tees :Spop SPACE OFF STACK 
15166 726 BR 2$ $:GET NEXT CHARACTER 
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CZRNIAO 
TYPE ROUTINE 
0151 STYPEC: 
15170 105777 163750 TSTB © aSTKS z:CHAR_IN KYBD BUFFER? 
15174 10002 BPL % 33;8R IF NOT 
13176 01 4 163744 MOV a$TkB,-(SP) +:GET CHAR 
1520 716 1776 BIC #177600,(SP) § ::STRIP EXTRANEOUS BITS 
15 122716 00002 CMPB Os WSXOFF,, (SP) S:WAS CHAR XOFF 
13 le 00101 o BNE ::BR IF NOT 
015214 105777 163724 TST8 © @STKS s:WAIT FOR CHAR 
15220 1 375 BPL 101$ 
015222 117716 16 720 MOVB = aSTKB, (SP) ::GET CHAR 
O15 $ 042716 177600 BIC #177600,(SP)  ::STRIP IT 
15 122716 000021 CMPB ss #WSXON, (SP) S:WAS IT XON? 
013256 001366 BNE 101$ 7:BR IF NOT 
O13 40 102$: 
015260 005726 wn TST (SP)+ zgFIX STACK 
015242 105777 163702 TSTB = AS TPS s:WAIT UNTIL PRINTER IS READY 
015246 100375 BPL 10$ 
015250 116677 900002 163674 MOVB  2(SP) ,a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
015256 \ce766 000015 000002 CMPB ses #CR, 2(SP) +:IS CHARACTER A CARRIAGE RETURN? 
015264 00100 BNE + :BRANCH 
015266 105037 015306 CLRB § $CHARCNT t:YES=-CLEAR CHARACTER COUNT 
015272 000406 BR STYPEX TIEXIT 
015274 122766 000012 000002 1S: CMPB eM, 2( SP) +:IS CHARACTER A LINE FEED? 
015302 001402 BEQ STYPEX ::BRANCH IF YES 
015304 105227 INCB (PC) 4 [:COUNT THE CHARACTER 
015306 000000 SCHARCNT:.WORD 0 S: CHARACTER COUNT STORAGE 
015310 000207 STYPEX: RTS PC 
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eSBTTL BINARY TO OCTAL (ASCII) AND TYPE 


eee eek LL AST GOUET ODER 90 A O88 
EsottaL eASCHTD 444 TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
= age amma HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


1=TYPE LEADING ZEROS 
:0=SUPPRESS LEADING ZEROS 


;*$TYPON=----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
suis’ OR $TYPOC 


3*C 

* MOV NUM, =(SP) 3;NUMBER TO BE TYPED 

* TYPOS pe FOR TYPEOUT 

* BYTE N 33N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
- BYTE M 33M=1 

® 

ok 


e@ Ge Ge Ge Ge Ge te Sete Ges 


* MOV NUM, -(SP) s;NUMBER TO BE TYPED 
i TYPON *:CALL FOR TYPEOUT 
{#STYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7* MOV NUM, = (SP) s NUMBER TO BE TYPED 
* TYPOC T:CALL FOR TYPEOUT 
015312 017646 STYPOS: MOV asp), -(SP) :3PICKUP THE MODE 
015316 116637 1 015535 MOVB  1(SP).SOFILL 33LOAD ZERO FILL SWITCH 
015324 112637 015537 MOVB  (SP)+,$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
015330 062716 2 ADD #2, (SP) ADJUST RETURN ADDRESS 
0153346 900406 BR $TYPON 
015336 112737 000001 015535 $TYPOC: MOVB #1,S$0FILL z3SET THE ZERO FILL SWITCH 
015344 112737 000006 015537 MOVB #6, SOMODE+1 z386T FOR SIX(6) DIGITS 
015352 112737 000005 015534 $TYPON: MOVB #5,SOCNT T:SET THE ITERATION COUNT 
015360 010346 MOV R3,-(SP) +: SAVE 
015362 010446 MOV R4,-(SP) 33SAVE R& 
015364 010546 MOV R5.-(SP) SSAVE RS 
015366 113704 015537 MOVB  $OMODE+1,R4 <2GET THE NUMBER OF DIGITS TO TYPE 
015372 005404 NEG R4 
015374 062704 ADD #6,R4 i :SUBTRACT HM FOR MAX. ALLOWED 
015400 110437 0155 MOVB  R4.SOMODE SSAVE IT FOR USE 
015404 113704 01553 MOVB $OFILL,R4 tGET THE PERO FILL SWITCH 
015410 016605 000012 MOV 1e(SP) «RS 33PICKUP THE I 
015414 005003 CLR R CLEAR THE OUTPUT, UORD 
013416 105 1$: ROL R5 ;IROTATE MSB INTO "'C 
01542 04 BR 38 0 DO MSB 
015422 105 2$: ROL RS :TFORM THIS DIGIT 
015424 006105 ROL RS 
015426 006105 ROL R5 
0154 010505 MOV R5,R3 
0154 10 3$: ROL R3 ::GET LSB OF THIS DIGIT 
015434 105337 015536 DECB $OMODE S:TYPE THIS DIGIT? 
015440 10001 BPL 7$ [:BR IF NO 
015442 042703 177770 BIC #177770,R3 +:GET RID OF JUNK 
0154 1002 BNE 4$ t: TEST FOR 0 
01545 5 TST R4 +: SUPPRESS THIS 0? 
01545 1403 BEQ 5% i:BR IF YES 
015454 005204 4$: INC R4 [:DON'T SUPPRESS ANYMORE 0'S 
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SEQ 0062 





BR 4 ane TO DO 

33 INSURE LAST DIGIT ISN'T A BLANK 
3360 DO THE LAST DIGIT 

;sRESTORE R5 

ZsRESTORE R4 

3sRESTORE R3 

33SET THE STACK FOR RETURNING 


3 sRETURN 

s3STORAGE FOR ASCII DIGIT 

33 TERMINATOR FOR TYPE ROUTINE 
ssOCTAL DIGIT COUNTER 


SID 


SOOCSSCSCOCOCOCOCOSOOOoOOoOooOo 
= SS I I I I 
YYSSS 
SERRE 
=CCooCo0oSoo 
BB 


SNA 

esse 

TN 
~J ~ SSUES 
SANINSSASsSos 


SOooooooooeooeoo 
iN 


en med eb ed et ed ed I 


NNN 
MOOS 


nN 


C 


020200 
000020 


000055 
015754 
000040 


015744 


000001 
000060 
000040 


000010 


177777 | 177776 
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~SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ee er tee eee ae 2 tas 
SATHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER A_5-DIGIT 
3 *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. VDEPENDING oN WHETHER THE 
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
[BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
jeREPLACED WITH SPACES. 


3* MOV NUM, = (SP) ::PUT THE BINARY NUMBER ON THE STACK 
:* TYPDS +:G0 TO THE ROUTINE 
STYPDS: 
MOV RO,-(SP) ssPUSH RO ON STACK 
MOV R1.=(SP) +: PUSH HRI ON STACK 
MOV R2,-(SP) +:PUSH R2 ON STACK 
MOV R3,-(SP) ::PUSH ON STACK 
MOV R5.- R5 ON 
MOV #26200, (SP) ¢:SET BLANK SWITCH AND SIGN 
- MOV 20(SP) *R5 t2GET THE INPUT 
BPL +:BR IF INPUT IS bose 
NEG AS S:MAKE THE BI S. 
VB #*=,1(SP) S:MAKE THE ASCI 
$ CLR R 33 ZERO THE CONSTANTS INDEX 
MOV #SDBLKR3 +:SETUP THE OUTPUT POINTER 
MOVB so #"_—, (R3)¢ 33SET THE FIRST CHARACTER TO A BLANK 
2$: CLR R2 :CLEAR THE BCD NUMBER 
MOV $DTBL(RO) ,R1 :i6eT THE CONSTANT 
3$: SUB R1,R5 33 FORM THIS BeD DIGIT 
BLT 4$ <BR 
INC Re £ ON CREASE THE BCD DIGIT BY 1 
4$: ADD R1.R5 :ADD BACK THE CONSTANT 
TST R2 33CHECK IF BCD DIGIT=0 
BNE 5$ THROUGH IF 
TSTB (SP) tISTILL DOING LEADING 0°S? 
BMI 7$ *:BR IF YES 
5S: ASLB = (SP) 3 3MSD? 
BCC 63 F NO 
MOVB 1 SP) ,=1(R3) +S YES=-SET THE SIGN 
6$: BIS #°0,R2 7 MAKE THE BCD DIGIT ASCII 
7$: BIS ae : MAKE IT A SPACE IF NOT ALR EADY A DIGIT 
MO R2, (R3)+ *SPUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + *:JUST INCREMENTING 
CMP RO,#10 *:CHECK THE TABLE INDEX 
BLT 2$ +:G0 DO THE NEXT DIGIT 
BGT 8$ £:G0 TO EXIT 
R5,R2 33GET THE LSD 
BR 6$ *:G0 CHANGE TO ASCII 
8$: TSTB ss (SP) + 33WAS THE LSD THE FIRST NON-ZERO? 
BPL ‘BR_IF NO 
MOVB =1(SP),-2(R3) iEYES-=SET THE SIGN FOR TYPING 
9$: CLRB = (R’3) +:SET THE TERMINATOR 
MOV (SP)+,R5 +:POP STACK INTO R 
MOV (SP)+-R3 *:POP STACK INTO R 
MOV (SP)+-R +:POP STACK INTO R 
MOV (SP)+-R +:POP STACK INTO R 


Zs 
—_-_ = 
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—~ 
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DECIMAL AND TYPE ROUTINE 
600 MOV (SP)+,RO 3sPOP STACK PINTO RO 
04401 015754 TYPE DBLK [NOW TYPE THE NUMBER 
18666 000002 000004 MOV ¢(SP), 4(SP) + ADJUST THE STACK 
12616 MOV SP)+, (SP) 
90002 RTI :;RETURN TO USER 
$DTBL: 10000. 
750 1000. 
144 100. 
000012 10. 
SDBLK: .BLKW 4 











-SBTTL TTY INPUT ROUTINE 


FL RAAAAAAAAEAERAAERAEEERERERERRAERRARRRERAERERERERRERRRRREEREREEAE 


1 

15770 000000 STKQOUT: .WORD 

1 ae S$TKQSRT: .BLKB 1 SiTTy KEYBOARD QUEUE 
015773 a ° 


3*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
3 *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


eCALL : 


7* JSR PC, $TKINT 
* RETURN 
015774 905037 015764 $TKINT: CLR STKCNT :CLEAR COUNT OF ITEMS IN QUEUE 
016000 012737 015772 015766 MOV #STKOSRT, STKQIN : :HOVE THE STARTING ADDRESS OF THE 
016006 01 30 015766 015770 MOV STKQIN,S$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
016014 012737 016044 000060 MOV #STKSRV QATKVEC § dS INITIALIZE THE KEYBOARD VECT 
016022 012737 000200 000062 MOV #200, a4 TKVEC+ LEVE 
016030 005777 16311 TST a$TkB T:CLEAR DONE FLAG 
016034 012777 000100 163102 MOV #100, a$TKS t:ENABLE TTY KEYBOARD INTERRUPT 
016042 000207 RTS PC ::RETURN TO CALLER 
z*TK SERVICE ROUTINE 
3* THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
ia READING, THE ¢ CHARACTER FROM THE INPUT BUFFER AND PUTTING 
F THE CHARACTER IS A “‘CONTROL-C’* (“C) STKINT IS CALLED AND 
$ SUPON RETURN EXIT IS MADE TO THE "CONTROL-C’’ RESTART ADDRESS (START) 
016044 117746 163076 $TKSRV: MOVB rag (SP) 33 PICKUP THE CHARACTER 
016050 042716 177600 BIC acl a (sp) t:STRIP THE JUNK 
016054 021627 000021 CMP t:1S IT A RANDOM XON? 
016060 001002 BNE + :BRANC 
01 5726 © TST (SP)+ 7 CLEAN RANDOM XON OFF STACK 
016064 2 RTI + :RETURN 
016066 30S: 
016066 021 7 000003 CMP (SP) #3 21S IT A CONTROL C? 
016072 001007 BNE 13 BRANCH IF NO 
016074 104401 01717 TYPE SCNTLC +: TYPE A CONTROL=-C (*C) 
0161 737. (01577. JSR PC, $TKINT SSINIT THE KEY 
0161 57 g. TST SP)+ S:CLEAN UP STACK 
161 1 001766 JMP START 3:CONTROL C RESTART 
1611 1627 00000 1$: CMP (SP) ,#7 ::1S IT A CONTROL G? 
O16116 1 BNE 2 SBRANCH 1F NO 
16120 022 7 000176 001140 . CMP #SUREG, SUR t:1S SOFT=SWR SELECTED? 
016126 001500 BEQ £:60 TO SWR CHANGE 
016130 2$: 
16130 022737 000001 015764 CMP #1, $TKCNT z21S THE QUEUE FULL? 
161 1004 BNE $ : SBRANCH IF NO 
16140 104401 001202 TYPE ,$BELL *:RING THE TTY BELL 
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CZRNIAO RM8O DUAL 
TTY INPUT ROUTINE 
grelts are6 TST (SP)+ 33 CLEAN CHARACTER OFF OF STACK 
10198 BR 5$ XIT 
Biers 1831 000023 3$: a4 {se #23 itis IT A —e 
161 28 29 162762 CLR a$TkS DISABLE TTY ee INTERRUPTS 
0161 OR3 £36 TST (SP)+ eechen CHAR OFF STACK 
B1oige 05 162754 31$: TSTB a$TKS F 
0161 8 1872 BPL 31$ 7:LOOP_ UNTIL ITS THERE 
016172 117746 162750 MOVB asthe -(SP) 3:GET THE CHARACTER 
giei7s O67 18 177600 BIC #°C177, (SP) 3 MAKE IT ote a 
B1es 1366 BNE 1 ; sBRANCH 
g1g10 012 000100 162726 ad #100,aSTKS 3 :REENABLE TTY KEYBOARD INTERRUPTS 
016220 0052 ¢ 015764 32$: INC STKCNT 33 COUNT THIS CHARACTER 
016224 021627 090140 CMP (SP) ,#140 ssiIs If ot CASE? 
0162 002405 BLT 3 :BRANCH 
016232 021627 000175 CMP (SP) #175 3218 ITA al CHAR? 
016236 003002 BGT 4$ 
016240 ms716 0 BIC #40, (SP) MAKE IT UPPER op 
016244 112677 177516 4$: MOVB (SP5+,a$TKQIN 3;AND PUT _IT IN QUEUE 
016250 005237 015766 INC S$TKQIN + sUPD ATE | POINTER 
016254 023727 015766 015773 CMP STKQIN,#STKQEND 33 3GO OFF THE END? 
016262 001003 BNE 5$ os BRANCH IF NO 
016264 012737 015772 015766 MOV #STKQSRT ,STKQIN ;;RESET THE POINTER 
016272 5$: RTI 7 RETURN 


RRR ERRERRARARAAEREREEERRARR ERE ERERRRERERERRRERERERAREREEE 
; RSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

[*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

7*SERVICE THE TEST FOR CHANGE IN afl ga SWITCH REGISTER TRAP 


:*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
- 016274 022737 000176 001140 $ckSWR: CMP #SWREG, SWR 3321S THE SOFT=SWR SELECTED 
016302 001124 BNE 15$ 33EXIT IF NOT 
016304 105777 162634 TSTB = @STKS 71S A CHAR WAITING? 
016310 100121 BPL 33]F NOT, EXIT 
016312 117746 162630 MOVB = a$TKB,-(SP) SVE 
016316 042716 177600 . BIC ths (SP) T:MAKE IT 7-BIT ASCII 
016322 021627 000007 CMP (SP) #7 1S IT A CONTROL-G? 
016326 001300 3 BNE 2$ A NOT, Pur IT IN THE TTY QUEUE 


SSCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
**ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
;*CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
é$: CMPB ss SAUTOB,, #1 WE RUNNING IN AUTO-MODE? 


016330 123727 001134 000001 33 

016336 001674 BEQ 2$ SBRANCH IF YES 

016340 005 6 TST (SP)+ *SCLEAR CONTROL-G OFF STACK 

01 737 015774 JSR PC, S$TKINT 3 FLUSH THE ITY INPUT QUEUE 

016346 005077 160572 CLR astks “DISABLE TTY KEYBOARD INTERRUPTS 
016352 112737 001135 MOVB = #1, SINTAG 2:SET BU ERRUPT MODE INDICATOR 
016360 104401 17a TYPE  ,$CNTLG z2ECHO THE CONTROL-G (°G) 

016364 104401 $GTSWR: TYPE 33 TYPE CURRENT CONTENTS 

016370 013746 MOV SWREG,-(SP) *:SAVE SWREG FOR TYPEOUT 

016374 104402 TYPOC 7:60 TYPE--OCTAL ASCII(ALL DIGITS) 
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a$TKB,-(SP) 
ae Pt (SP) 


(SP) #3 
*Sewrec 
SINTAG, #1 
#100, aSTKS 
START 


(SP) ,#25 
10: 
eSCNTLU 
4 


#100,a$TKS 


PC, STYPEC 
(SP) ,#60 


(SP) ,#67 


#60, (SP)+ 
2(SP) 


2(SP) 
=2(SP), (SP) 


SQUES 
20$ 


SEQ 0067 


:zPROMPT FOR NEW SWR 
:;CLEAR COUNTER 

Zs: THE NEW SWR 

::CHAR THERE? 

sz1F NOT TRY AGAIN 


33PICK UP CHAR 
33MAKE IT 7-B1T ASCII 


3318 IT A CONTROL~C? 

T:YES, ECHO CONTROL-C (*C) 
T:CLEAN UP STACK 

; ;REENABLE. TTY KEYBOARD INTERRUPTS? 
S:ALLOW TTY KEYBOARD INTERRUPTS 
S:CONTROL=-C RESTART 

3318 11 A CONTROL -U? 

YES, ECHO CONTROL-U (“U) 
TEIGNORE PREVIOUS INPUT 

SILET'S TRY IT AGAIN 

ssIS ITA <CR>? 


3 ;BRANCH IF 
3zYES, IS IT THE FIRST CHAR? 
$3 H_IF YES 


IEC AND <LF> 
: SRE-ENABLE TTY KBD INTERRUPTS? 
7 SRE-ENABLE TTY KBD INTERRUPTS 


; AS 
3318S THIS THE FIRST CHAR 
3 <BRAN 


F YES 
33NO, SHIFT PRESENT 
33 CHAR OVER TO MAKE 
ae OOM FOR NEW ONE. 
33KEEP COUNT OF CHAR 
33SET IN NEW CHAR 
33GET THE NEXT 
33TYPE 2<CR><LF> 
33SIMULATE CONTROL-U 


23 RERAAAARARAERARAAEREEEEEEEEAERAERAERERERAAEERREREREEEAEEEAEREREREEE 
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oetais ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ie RDCHR 33GET_A CHARACTER FROM THE QUEUE 
3* RETURN HERE [CHARACTER IS ON T 
* <SWITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC AND 
000004 000002 MOV 4(SP5 ,2¢SP) 3TH 
000004 , CLR 4(SP) 7:GET READY FOR A CHARACTER 
CLR -(SP) :3PUT NEW PS ON STACK 
016662 MOV #64$,-(SP) [PUT NEW PC ON STACK 
re RTI :SPOP NEW PC AND PS 
015764 1$: Ist STKCNT z:WAIT ON A CHARACTER 
015764 DEC STKCNT ::DECREMENT THE COUNTER 
177070 000004 MOVE © @STKOOUT,4(SP) 3;GET ONE CHARACTER 
015770 INC $TKQOUT [UPDATE THE POINTER 
015770 015773 Cw $TKQOUT, #STKQEND’ ; -DID IT 60 OFF OF THE END? 
015772 015770 MOV #STKOSRT ,STKQOUT’ : RESET THE POINTER 
2$: RTI ZRETURN 


T cdERRAeREReeAeeeneneeeteneeeetrerterenteneenrereereeeeeseeent 


THIS. ROUTINE WILL INPUT A STRING FROM THE TTY 


7* RDLIN sz INPUT A STRING FROM THE T 
7% RETURN HERE * SADDRESS OF FIRST QHARACTER "yILt BE ON THE STACK 
3* +: TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP) Z2SAVE R3 
CLR -(SP) S:CLEAR THE RUBOUT KEY 
017162 1$: MOV #STTYIN,R3 22GET ADDRESS 
017172 2$: CMP WSTTYINGS.,.R3 =: :BUFF 
BLos 6 4$ [:BR IF Y 
RDCHR 7:60 READ ONE CHARACTER FROM THE TTY 
MOVB (SP) +, (R3) 33GET CHARAC TER 
000177 10$:  CMPB  #177,(R3) tIS IT A 
BNE Se ::BR IF NO 
st (SP) i318 THIS THE FIRST RUBOUT? 
000134 017160 MOVB so #''\,98 t:TYPE A BACK SLASH 
171 TYPE 9$ 
ort MOV #-1, (SP) ::SET THE RUBOUT KEY 
6S: DEC R BACKUP BY ONE 
017162 CMP R3,AMSTTYIN 33 STACK ENPTY? 
017160 mMOVB = (R3),9$ t:SETUP TO TYPEOUT THE DELETED CHAR. 
017160 _ TYPE 9$ £:60 TY 
BR $ 3360 READ ANOTHER CHAR. 
5$: TST (SP) [:RUBOUT KEY SET? 
BEQ 7 °:BR IF NO 
000134 017160 MOVB so #'"\,, 98 +: TYPE A BACK SLASH 
017160 TYPE 9$ 


CLR (SP) ::CLEAR THE RUBOUT KEY 
000025 7$: CMPBs#25,, (R3) 331$ CHARACTER A CTRL U? 
BNE ty "BR IF NO 
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4$: 
3$: 


9$: 


STTYIN: .BL 


<15><12>/SWR = / 
/ NEW=/ 





YPE_A CONTROL “U" 

O START OVER 

S CHARACTER A ‘“*R'"? 
BRANCH_IF NO 

SCLEAR THE CHARACTER 

TYPE A “CR & "LF 

TYPE THE INPUT STRING 
:$G0 PICKUP ANOTHER CHACTER 
S:CLEAR THE BUFFER AND LOOP 
37ECHO THE CHARACTER 


s;CHECK FOR RETURN 

sLOOP IF NOT RETURN 

;CLEAR RETURN (THE 15) 

sTYPE A LINE 

: RUBOUT KEY FROM THE STACK 
REST 3 


;;ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 


3 RETURN 

Z:STORAGE FOR ASCII CHAR. TO TYPE 
Z:RESERVE 8 BYTES FOR TTY INPUT 
S3CONTROL "C'" 


z:CONTROL ‘U"’ 
zs :CONTROL ''G’’ 
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READ AN OCTAL NUMBER FROM THE TTY 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


© RRRRAAAERAEEREREARREEE  REREEEREEEAAAERAREREEEEREREREERERERREREE 


S®THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
3 *CHANGE TO BI 


3* RDOCT z:READ AN OCTAL 
7* RETURN HERE *:LOW ORDER BITS ARE ON TOP OF THE STACK 
3* HIGH ORDER BITS ARE IN $HIOCT 
017234 011646 SRDOCT: MOV (SP) ,=(SP) z:PROVIDE SPACE FOR THE 
017256 016666 000004 000002 MOV 4(SP5 ,2(SP) INPUT NUMBER 
017244 010046 MOV RO,~(SP) +:PUSH RO ON STACK 
017246 010146 MOV R1,-(SP) + PUSH R1 ON STACK 
017250 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 
017252 104411 1$: RDLIN ::READ AN ASCIZ LINE 
017254 012 MOV (SP)+,RO t:GET ADDRESS OF 1ST CHARACTER 
017256 010037 017362 MOV RO,5$ SZAND SAVE 
017262 005001 CLR R1 t:CLEAR DATA WORD 
017264 005002 CLR R2 
017266 112046 2$: MOVB = (RO) +, =(SP) ::PICKUP THIS CHARACTER 
017270 001420 BEQ 3$ t:1F ZERO GET OUT 
017272 122716 000060 CMPBs#10, (SP) 3: SURE THIS CHARACTER 
017276 003026 BGT 4$ t:1S AN OCTAL DIGIT 
017300 122716 000067 CMPBsé#"77, (SP) 
017304 002423 BLT 4$ 
017306 1 ASL R1 332 
017310 102 ROL R2 
017312 006301 ASL R1 32%4 
017314 006102 ROL R2 
017316 006301 ASL R1 32*8 
0173 102 ROL R2 
017322 716 177770 BIC #°C7, (SP) z:STRIP THE ASCII JUNK 
017326 601 ADD (SP)+,R1 S:ADD IN THIS DIGIT 
017330 000756 BR 33 
017332 005726 3$: TST (SP)+ *:CLEAN TERMINATOR FROM STACK 
0173 010166 900012 MOV R1,12(SP) t:SAVE THE RESULT 
017340 0102 01737 MOV R2,$HIOCT 
017344 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
017346 01 601 MOV (SP)+,R1 ::POP STACK INTO R1 
017350 01 MOV (SP)+,RO ::POP STACK INTO RO 
017352 2 RTI + :RETURN 
017354 005726 4$: TST (SP)+ *:CLEAN PARTIAL FROM STACK 
017356 105010 CLRB = (RO) +:SET A TERMINATOR 
01 104401 TYPE ::TYPE UP THRU THE BAD CHAR. 
O17364 104401 001206 PEO saues eat sept g MLR 
O17 396 seh BR is TRY AGAIN 
017372 $50000 SHIOCT: .WORD 0 t:HIGH ORDER BITS GO HERE 


G 6 
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SAVE AND RESTORE RO-R5 ROUTINES 


~SBTTL SAVE AND RESTORE RO-RS ROUTINES 






T*SAVE RO-R 
se L: 
;*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
*#TOP=-=(+16) 
3% +2---(+18) 
ge 44---R5 
3% 46---R4 
3* a ~--R3 
yet 2 
3%412==-R1 
3%4+14---R0 
017374 SSAVREG: 
017374 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
017376 010146 MOV R1,-(SP) PUSH R1 ON STACK 
017400 010246 MOV R2,-(SP) + PUSH Re ON STACK 
017402 010346 MOV R3,-(SP) PUSH R3 ON STACK 
017404 010446 MOV R4,-(SP) PUSH R4 ON STACK 
017406 010546 MOV R5,-(SP + PUSH RS ON STACK 
017410 016646 000022 MOV 2(SP) ,-(SP) SSAVE PS OF FL 
017414 016646 000022 MOV g (SP) .- + SAVE PC OF MAIN FLOW 
017420 016646 00002 MOV (SP);=(SP)  :SAVE PS OF CALL 
017424 016646 00002 MOV 2(SP),-(SP)  3;SAVE PC OF CALL 
017430 000002 RTI 
:*RESTORE RO-RS5 
3*CALL: 
fe RESREG 
017432 SRESREG 
017432 012666 000022 V (SP)+,22(SP)  ::RESTORE PC OF CALL 
017436 012666 000022 MOV (SP)+,22(SP)  ::RESTORE PS OF CALL 
017442 012666 00002 MOV (SP)+.22(SP) § ::RESTORE PC OF MAIN FLOW 
017446 1 666 00002 MOV (SP)+, g (SP) t:RESTORE PS OF MAIN FLOW 
017452 01260 MOV (SP)+,R *:POP STACK INTO R 
017454 o1 604 MOV (SP)+,R4 ::POP STACK INTO R4 
017456 012603 MOV (SP)+,R3 *:POP STACK INT RS 
017460 ot 602 MOV (SP)+,R *:POP STACK INTO R 
017 12601 MOV (SP)+.R *:POP STACK INTO R1 
017464 012600 MOV (SP)+;RO ::POP STACK INTO RO 
017466 2 RTI 
2 .SBTTL TRAP DECODER 
22 RAERAAAAAARAERAERAAEAARRAERAEAEEEERARERAAAERAERAERAEEEERERAERERAAAEARERE 
*®THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
[*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
*e0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
**G0 TO THAT ROUTINE. 
017470 91004 STRAP: MOV RO,-(SP) Z2SAVE RO 
017472 01 000002 MOV 2(SP) ,RO *:GET TRAP ADDRESS 
017476 005740 TST =(RO) 7:BACKUP BY 
17500 111000 Move _ (RO),,RO $:GET RIGHT BYTE OF TRAP 
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TRAP DECODER 


017502 006 ASL RO apes he FOR INDEXING 
017504 01 017524 MOV STRPAD(RO),RO ;;INDEX TO TABLE 
017510 200 RTS RO 3360 TO ROUTINE 


z;THIS IS USE TO HANDLE THE ‘GETPRI’’ MACRO 


017512 011646 STRAP2: MOV (SP) ,=(SP) s:;MOVE THE PC DOWN 
017514 016666 000004 000002 MOV 4(SP5 ,2(SP) *:MOVE THE PSW DOWN 
017522 000002 RTI S:RESTORE THE PSW 


-SBTTL TRAP TABLE 


3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘TRAP’ INSTRUCTION. 





: ROUTINE 
017524 017512 $TRPAD: .WORD $TRAP2 
017526 013020 $TYPE ;;CALL=TYPE TRAP+1(194401) TTY TYPEOUT ROUTINE 
017530 0153 $TYPOC ::CALL=TYPOC papsSt0ce08) 1 TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017532 015312 STYPOS ::CALL=TYPOS TRAPS (104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017534 015352 STYPON ::CALL=TYPON 4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
017536 015540 STYPDS ::CALL=TYPDS TRapss(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
017540 016364 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
017542 016274 SCKSWR :7CALL=CKSUR TRAP+7 (104407) TEST for CHANGE IN SOFT-SWR 
017544 016636 SRDCHR ::CALL=RDCHR § TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
017546 O67 6 SRDLIN : CALL =RDLIN TRAP+11(104411) Vy TYPEIN STRING ROUTINE 
017550 01 2 SRDOCT ::CALL=RDOCT TRAP#+12(1 ig) READ AN NO TAL NUMBER FROM TTY 
017552 017374 SSAVREG 2 ICALLESA VREG TRAP+13(104413) SAVE R ROUTINE 
017554 017432 SRESREG ::CALL=RESREG TRAP+14(104414) RESTORE as ROUTINE 
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~SBTTL TELETYPE MESSAGES 
ENTERA: .ASCIZ <CRLF>/ENTER DRIVE ADDRESS: / 
ADRERR: 4? 


SEQ 0073 


R: .ASCIZ INVALID _ADDRESS/<CRLF> 
PORTAIS: .ASCIZ <CRLF>/PORT ‘A* ADDRESS IS: / 
PORTBIS: .ASCIZ <CRLF>/PORT °B* ADDRESS IS: / 
NOCLOCK: .ASCIZ <CRLF>/SYSTEM MUST HAVE 'L* OR "P* CLOCK/<CRLF><LF> 
TESTNO: .ASCIZ <LF>/ENTER TEST #: 
BADNO: .ASCIZ INVALID TEST NUMBE 
ADDRIS: .ASCIZ <CRLF><LF>@RH/RM ADDRESS (RMCS1) IS: @ 
NTRH: .ASCIZ <LF>@ENTER RH/RM AD 3 
SWICHN: .ASCIZ <CRLF>@RETURN ‘PORT SELECT’ SWITCH TO °A/B‘@ 
SWICHA: .ASCIZ <CRLF>/SWITCH ‘PORT SELECT’ TO *A*/ 
SWICHB: .ASCIZ <CRLF>/SWITCH ‘PORT SELECT’ TO °B*/ 
CONTUE: .ASCIZ <CRLF>/THEN PRESS ‘CONTINUE’ ON THE PROCESSOR/<CRLF> 
CYCLED: .ASCIZ <CRLF>/STOP THE DRIVE/ 
CYCLEU: .ASCIZ <CRLF>/START THE DRIVE, THE PROGRAM WILL WAIT FOR ‘MOL* TO SET/<CRLF> 
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-SBTTL TEST ERROR MESSAGES 


1 12 111 EMI: eASCIZ /DRIVE IS NON-EXISTENT ("NED* BIT SET)/ 

127 12 117 eae eASCIZ /WRONG DRIVE TYPE/ 

120 14 122 EMS: eASCIZ @PORT SELECT SWITCH ON DRIVE NOT IN ‘A/B‘@ 

104 ise 117 ~EM4: eASCIZ /DRIVE NOT ON LINE/ 

123 10 Ie EMS: eASCIZ /SERIAL_NUMBER READ THROUGH EACH PORT NOT THE SAME/ 

124 111 115 ~EM6: eASCIZ io HAS NOT OCCURRED WITHIN 2 SECONDS/ 

124 111 115 EM?7: eASCIZ /TIMEOUT ONE-SHOT IS LESS THAN 

ies 105 101 €M10: .ASCIZ /READ IN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 
04 107 117 EM11:  .ASCIZ /'GO* BIT RESET DURING UNLOAD COMMAND/ 

111 116 103 a eASCIZ /INCORRECT STATUS DURING 

104 122 111 «EM -ASCIZ /DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/ 
101 \$ 124 EM14:  .ASCIZ /ATTENTION BIT SET ON ‘OPPOSITE PORT’ AFTER UNLOAD/ 

101 124 124 EM15: .ASCIZ /ATTENTION BIT NOT SET ON PORT WHICH ISSUED "UNLOAD‘/ 
104 122 111 ~EM16 eASCII /DRIVE NOT IN NEUTRAL AFTER UNLOAD, WITH *PORT/<CR><LF> 
123 105 114 eASCIZ @SELECT® SWITCH MOVED FROM ‘A/B* @ 

104 122 111 EM17:  .ASCIZ /DRIVE LOCKED ON PORT ‘A’ BY SWITCH WHILE CYCLED UP/ 
104 122 111 EM20: .ASCIZ /DRIVE LOCKED ON PORT ‘B* BY SWITCH WHILE CYCLED UP/ 
123 124 101 enss! eASCIZ /STATUS INCORRECT FOR PORT AFTER CYCLE UP/ 

122 105 107 EM22: .ASCIZ /REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON “OPPOSITE* PORT/ 
047 116 105 EM23: .ASCIZ /'NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/ 
104 122 111 EM24: .ASCIZ /DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 

122 110 057 EM25: .ASCIZ @RH/RA *T RESPOND TO ADDRESSING@ 

104 122 111. EM30: .ASCIZ /DRIVE NOT SEIZED BY PORT/ 

127 122 117 EM31:  .ASCIZ /WRONG STATUS SEEN BY THE SEIZING PORT/ 

122 105 107 EM3S2:  .ASCIZ /REGISTER CONTENTS WRONG/ 

103 117 116 EM33: .ASCIZ /CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 
103 101 116 EM34:  .ASCIZ /CAN'T ACCESS DRIVE THROUGH EITHER PORT/ 

104 122 111 EM35: .ASCIZ /DRIVE NOT IN NEUTRAL AFTER RELEASE = REQUEST NOT SET/ 
104 122 111 EM36: .ASCIZ /DRIVE NOT I RAL AFTER TIMEOUT = REQUEST NOT SET/ 
122 105 107 EM37:  .ASCIZ /REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 

104 122 111 EM40: .ASCIZ /DRIVE_IN NEUTRAL AFTER RELEASE = REQUEST SET/ 

122 105 107 EM41: .ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 
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4 105 123 DH1:  .ASCIZ /TEST # ERR PC PORT # REG ADR CONTENTS/ 
4 1 1 Die: "ASCIZ. /TEST #@ ERR PC PORT # REG ADR GOOD  BAD/ 
4 105 123 DHS:  .ASCIZ /TEST # ERR PC REG ADR PORT A PORT 6/ 
4 105 123 DH6: #.ASCIZ /TEST # ERR PC PORT #/ 
4 105 123 DH7:  <.ASCIZ /TEST # ERR PC PORT # TIME (IN MS)/ 
0 040 040 DH13: ASCII / SEIZE/<CRLF> 
4 10 12 "ASCIZ /TEST # ERR PC PORT #/ 
0 040 040 DH14: ASCII SEIZE ERROR/<CRLF> 
4 105 fF “ASCIZ. /TEST # ERR PC PORT # PORT # REG ADR CONTENTS/ 
4 105 123 DH17: .ASCIZ /TEST # ERR PC/ 
0 040 040 DH24: . ASCII / LOCKED SWITCHED T0/<CRLF> 
4 105 12 "ASCIZ /TEST # ERR PC PORT # PORT #/ 
4 122 115. DH25: .ASCIZ / 
0 040 040 DH30: . ASCII / SEIZE ERROR/<CRLF> 
4 105 12 “ASCIZ /TEST # ERR PC PORT # T # REG ADR GOOD ®BAD/ 
0 040 040 DH34: ASCII PORT A PORT B/<CRLF> 
4 105 123 "ASCIZ /TEST # ERR PC RMDS  RMDS 
0 040 040 DH35: . ASCII / RELSNG ERROR/<CRLF> 
4 105 12 "ASCIZ. /TEST # ERR PC PORT # PORT #/ 
0 040 040 DH37: .ASCII RELSNG ERROR/<CRLF> 
4 105 12 “ASCIZ /TEST # ERR PC PORT # PORT # REG ADR GOOD  BAD/ 
0 040 040 DH40: .ASCII RELSNG RQSTNG/<CRLF> 
4 105 123 "ASCIZ /TEST # ERR PC PORT # PORT #/ 
EVEN 
3 001116 001234 DT1:  .WORD TSTNUM,SERRPC,PTNBR,$BDADR,SBDDAT.O 
001116 001234 DT2:  .WORD TSTNUM,SERRPC,PTNBR,SBDADR,$GDDAT ,SBDDAT.O 
5 001116 001122 DTS:  .WORD TSTNUM.SERRPC.SBDADR, SGDDAT ,SBDDAT 0 
: 001116 001234 DT6:  .WORD TSTNUM,SERRPC,PTNBR, 
001116 001234 DT7:  .WORD TSTNUM.SERRPC,PTNBR,TIME,O 
> 001116 001236 DT13:  :WORD TSTNUM.SERRPC.SEIZPT,0 
2 001116 001236 DT14: WORD TSTNUM,SERRPC,SEIZPT,PTNBR,SBDADR, $BDDAT,0 
001116 000 DT17: :WORD TSTNUM.SERRPC, 
001116 0012 DTZ4: - WORD ISTNUM. SERRPC., SEIZPT ,PTNBR.O 
£00008 001236 DT30: :WORD TSTNUM.SERRPC,SEIZPT,PTNBR,SBDADR,S$GDDAT,$BDDAT 0 
> 001116 001170 DT34: WORD TSTNUM.SERRPC.STMP2,$TMP3,0 
2 001116 001236 DT35:  .WORD TSTNUM, SERRPC. SEIZPT .PTNBR.O 
2 001116 001236 DT40: .WORD TSTNUM,SERRPC,SEIZPT,OPPRT, 
000 000 001 DF1:  .BYTE 0.0.1.0. 
000 000 001 DF2: # :BYTE 0.0,1,0.0,0 
000 000 000 DFS: <:BYTE 0.0.0.0.0 
000 001 DF14: <BYTE 0.0.1.1,0,0 
000 000 DF17: .BYTE 0.0 
000 DEg5: "BYTE 0 
000 000 001 DF30: ‘BYTE 0.0.1.1.0,0.0 
000 000 000 DF34: = .BYTE 0.0.0.0 
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CONSTANTS, TABLES, ETC 


; 
4 025040 003112 
Nes Be 
Si Sere 
958052 Dorbes 
025054 010672 
3 025056 012002 

9 

10 
11 025060 001 
\¢ 025061 002 
1 063006 004 
14 02506 010 
15 025064 020 
16 025065 040 
17 025066 100 
8 025067 200 
3 025070 000011 
24 000200 


-SBTTL CONSTANTS, TABLES 


E 
STABLE OF TEST STARTING ADDR 


TSTADR: .WORD TST! 


WORD TST 
WORD TST 
eWORD TST4 
«WORD TSTS5 
-WORD TST6 
WORD TST 
-WORD TST10 


sATTENTION BIT TABLE 
ATABIT: gy 1 


YTE 2 
BYTE 4 
BYTE 10 
BYTE 20 
BYTE 40 
BYTE 100 
-BYTE 200 


MAXTN: .WORD 11 
~ END 200 
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“ 

SoS 

nn 

4 

m 
NNNUNNNMNNM 
er 


sATTENTION 
sATTENTI = 


sATTENTION R 
sATTENTION BIT FOR DR 
3MAXIMUM TEST NUMBER 


SEQ 0076 


Mm 6 
CZRNIAO_RM8O DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 24-1 SEQ 0077 
SYMBOL TABLE 


ADDRIS 02 CPSAVE 014454 DT14 24644 F = 000010 PORTBI 017657 
ADRERR Bi760s CR = 000015 DT17 b 798 F = 000020 PORTC 001230 
AOE = 1099 CRLF = 0g 00 dT 02456 F4 = 000040 PR = 000000 
ASR1 0012 CYCLED 02031 DT24 0 v4 14 co = 4d PR1 = 000040 
ATA___= 100000 CYCLEU 020337 DT25 470 GRV = 000010 PR = 000100 
ATABIT 025060 DCK = 6= 1 0008 DT30 4706 GTSWR = 104406 PR = 000140 
ATO §== 000001 DDISP = 177 DT34 24726 HCE = 000200 PRE = st 
ATi == 000002 DEI = 000040 DT35 Ose 5es HCI. = 002000 PRS = 000240 
AT 000004 DFF20 = 000002 DT40 = 024752 HCRC = 000400 PR6 = 000300 
AT = 000010 DF1 024764 DTS 024576 HT = 000011 PR? = 000340 
AT4 = 000020 DF14 025013 DT6 024612 IAE = 002000 PS = 177776 
ATS = 000040 DFi7 =6: 025021 DT7 024622 IBSAVE 014456 PSEL = 002000 
AT6 = = 000100 DF2 024771 DVA = 004000 E = 000100 PSW = 177776 
AT = 000200 DF25 025023 Dvc §== 000200 LF = ad PTNBR 001234 
A16 = =: 000400 DF30 025024 ECH = 000100 LR = 000002 PWRVEC= 000024 
| oro DF 34 067023 ECI _ = 004000 IOTVEC= 000020 RDCHR = 104410 
01777 DFS 02477 EMTVEC= 000030 I = 000100 RDLIN = 104411 
BADTMO 001706 DF6 025 EM 020431 IvC _ = 010000 RDOCT = 104412 
= 000010 DF? 02500 EM10 3=—_: 021014 KYBCTL 001266 RDY = 000200 
BITO = 000001 DH1 023174 EM11 061105 Lec = ts 44 RELERR 001250 
1T00 = 000001 DH13. =: 023464 EM1 02114 L8T == 002000 RELOK = 000001 
BITO1 = 000002 DH14 023541 EM Octeig LF 00001 RESREG= 104414 
IT DH17 =—s-_—«: 023660 EM14 021303 LSC 004000 RESVEC= 000010 
BITOS = 000010 DH 023245 EM15 021365 MAXTN 025070 RMAS = 000016 
BITO4 = 000020 DH24 023677 EM16 = 021451 MCPE = 020000 RMBA_ = 000004 
BITOS = 000040 DH25 00 EM17, ss 0215771 MDPE = 000400 RMCS1 = sists 
BIT06 = 100 DH30 =—_s« 024011 M 020477 MOH = 020000 RMCS2 = 10 
B1T07 = 000200 DH34 =—-_: 024133 EM20 021654 MOL = 010000 RMDA = 000006 
BIT 000400 DH35 024227 E 021737 MXF = 001000 RMDB = 000022 
BITO9 = 001000 DH37 0s: 024324 § 022010 NBA = 100000 RMDC = 000034 
BIT1_ = 000002 DH40 = 024446 EM2 022106 NED = 010000 RMDS . = 000012 
BIT10 = 002000 DHS 023321 EM24 =s_:« 022201 NEM = 004000 RMDT_ = 000026 
BIT11 = 004000 DH6 023370 EM25 022261 NOATA = 000000 RMEC1 = 
BIT12 = 010000 DH? 023417 - 020520 NOCLOC 017706 RMEC2 = 
BIT13 = 020000 DIGB = 000004 EM30° 022324 NOSE 001246 RMER1 = 
BIT14 = 040000 DISPLA 001142 EM31 022355 NTRH 020057 RMER2 = 
BIT15 = 100000 DISPRE 000174 EM32 Oeches OFD = 000200 RMLA = 
Bite = 000004 DLT = 100000 EM33 =. 022455 OPE = 020000 RMARI = 
BITS = 000010 DL64 = 000020 EM34 B6623. OPI = 020000 RMMR2 = 
BITS = 000020 DMD = 000001 EMSS 2260 OPPRT 001240 RMOF = 
BITS = 000040 DPE = 000010 EM36 =—s_« 02.267. OR = 000200 RAR = 
BIT6 = 000100 = 000400 EM37 =—s_—s« 022760 PAR = 000010 RMSN = 
BIT? = 000200 DRQ_ = = 004000 EM4 O50) PAT = pet RMWC = 
BIT8 = 000400 DRY = 909208 EM40 0s 041 PFECH 14656 R6 2% 
IT9 = 001000 DSWR = 17757 EM41 0 3.18 PFECH1 014666 R?—s = 
BPTVEC= 000014 DTE = 010000 EMS oe06! PFECH 14750 SAVREG= 
2764 DTOO = 000001 20675 PFECH 313008 Sc = 
001270 D101 = ai tg M7 Deore PFEC B13 SCOPE = 
CKCLK gis 36 DT02 = 000004 ENTERA 4 556 PFTSTIN 015016 sco. = 
KCLK1 013406 DTOS = 000010 RR = ryt PGE = 002000 sci = 
CKCLK2 013450 DT04 = 000020 ERROR = 104000 PGM = 8 1000 st¢ = 
CKCLKS 013460 DT05 + = 000040 ERRVEC= 8 004 PIP = 000 sc = 
KERR 001244 DT06 = 000100 EXEC +4 818 PIRQ =1 sc4__ = 
CKSWR = 104407 DTO7 = 000200 = 00002 PIRQVE= p0ss SEIZPT 
CLOCK 013470 DTO8 = 00 FMT16 = 010000 TA 1 $3 SKI = 
CLR_ = 000040 DT1 024544 = 4 PORTAI 017650 STACK = 
CONTUE 020246 DT13) =: 0024634 Fi = 000004 T 001226 START 





N 6 
CZRNIAO RMBO DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 24-2 
SYMBOL TABLE 


1776 TESTS 05244 = 
TESTS 26 = 

4h = 

7 = 


foo 


-Ss 
Pr) 
Sssssse 


sehaeststeeetistes 


pene 


3 


23 
g 
nhnnnnnn —-0 
x 
Wn 


Soooo 
S 
(=) 


SGDADR 
SGDDAT SSTUP = 
$GET42 


SSVLAD 01 


no 
~ 
Ns 


So 
ALO SK 


oo 


- ABS. 025072 On 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 54784 WORDS ( 214 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
»A:CZRNIA/C=A:CZRNIA.DOC,CZRNIA, SYSMAC/M 


056 


$XON 
TSTR 

$SGET4= 

SOF ILL 


Sa 
RENOS 


~ 


Slssssssssssssls 
UUM Rf a a 
BIVRROV LO NANA OO RE 


Oooooooeo 
SoS 
WWW Ou = 


ass 
NSMNMuI 


2 


1553 


RI WPS 


SEQ 0078 





8 7 
CZRNIAO RM8O DUAL PORT PT2 PACA Y05-00 15-JAN-82 07:13:40 PAGE S-1 SEQ 0079 


CROSS REFERENCE TABLE (CREF 

SSGET4 10-1 10-14 

SOFILL. 16-1 16-14 «16-18% = 16-18 

ro a Re OO he 

SEDADR 6-08 $150 150* 9-150« $-150¢ Qn157% 9-157" 9-157 9-157 9-165% 9-165e 9-165" 9-165 9-165« 
Ri: Eu: Gur Re Bk Ba Re Be Bie Re Be Be Be Be 
S253" 2439" 9-439 tae wo te yt a Se {ae 9 {an + an + MR sa eS al 

SBDDAT ‘“6-0# 9-150 9-150 9-150 915 150% 9-150® 9157 9-157 9-157" 9-157 9-165 9165 9165 
a Pe eth ae ey ee 165" 9-165 9-165" 9-165* 9-172" 9-173 9215 9-215 2158 
G-gise 9-215 G-2i5e FZibe F216 FTG SoeTge Saige alge Gale GZlge S87 7%, 9-2740 
95742 9-974"  9-9748 yee Od7ae 9-578 «= «a78— «9758 94975" 9-975" «9-975% 9-975" 9-975" «93028 
9-303" 9-50" S804 FS07* FS07e F30%*  9-S0r" 9 9-439 9-439 9-439 «(9-439 9-439 
9-439 9-430 9-4 9-439" 9-439% 40. 9-440 9-440 9-440 «9440 9-440 
9-440 Oe 9-440" 23-27 23-28 23-29 23-33 23-37 

SBELL 13-1. 13-1—s«ST'3H>D”—“‘<é‘ésdTBH?s~*~“‘«‘éiBRDS~C<“‘é‘i‘ MT 

SCHARC 15-1. 15-14 15-18 15-18 15-18 

SCKSUR 18-18 20-2 20-2 

$ 6-0 6-0 6-0" 
6-0 6-0 6-0# «6-08 

$c 6-0 6-0 6-08 
6-0, 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-08 «6-08 i086 08 
yn a a es  ? ee ee 

NILC 18-1 18-1 18 18-1 «18-18 


9-104 10-1 it 13-1 13-1 14-1 14-1 14-1 14-1 15-1 15-1 


10-1 10-14 
SDTBL 17-1 17-14 
5-5 28 10-14 13-1 
SENDCT 9-23 10-14 
NULL 10-14 
40 10-14 


SEOPCT 
SERFLG 6-04 9-439 = 9"439% = 9-440 = 9" 440* =12-1 12-1 12-1 12-1 12-1 13-1 13-1 13-1* 
SERMAX  6-0# * 12-1 


SERROR 
SERRPC 6-04 13-1 13-1 13-1 13-1%  13-1* 14-1 14-1 23-27 23-28 «= 23-29 23-300 23-31 23-32 
28-55 23-34 4 3=— 23-35 23-37) = 235-38 = 23-39 = 23-40 


SERTTL 6-04 10-1 10-1 10-1* 13-1 13-1 13-1* 
SESCAP 


SFILLC 6-O0# 15-1 15-1 15-1 

or itis ~ 15-1 15-1 

SGDDAT 6-04 9-150 a 9-150" 9-150" 9-150% 9-150" 9-157 9-157 g- 137° 9-157* 9-165 9-165 9-165 
9-165 9-165 9-165% 9-165* 9-165* 9-165" 9-165 9-165" 9-165" 9-170" 9-173 = 9215 215 F215 
9-215* 9-215* 9-215" 9-21 16 9- 1¢* 9-578" 9-5388 9-55¢ 9-274 9274 9274 9-274 
3-So7" 9-274% 9=274% 9-27 7 9-27 = 9-27 9-275* 75* 9-275" $-350 9- 9-302 
9-307 07 9-307" 439 9-439 9h 9-43 9-439% = 9-439% = 943598 39% = 9-4592 = 9G 9-439 
9-439% 9-440 9-440 = 9440 94460 94408 9-440" 994408 9-440" 94408 94408 = 94402 = 9-440" 925-28 


Cc 
PORT PT2 a ae he 15-JAN-82 07:13:40 PAGE S-2 


CZRNIJAO_ RM80 DUAL 
CROSS REFERENCE TABLE (CREF V 


23-37 


2 
$810 
12-1 12-1 
18-1 17] 
13-1 13-1 
13-1 15-1 
11-12* 
11=20* 
99-76% 9-137 
9-77 9-137* 
12-1 13-1 
12-1 12-14 
1271 18-1 
9-1374 99-1374 
9-275 9-275 
9-4404 99-4404 
16-1* 
16-1* 16-1% 
ae a 
132 15-1 
20-2 
20-2 
20-2 
9-102 9-109* 
20-2 
4-699 4-699 
9-23 9-23 
i3-1 13-1 
4-699 4-699 
4-511 4-511 
9-23 9-23 
10-1 10-1 
12-1 12-1 


16-1* 


10-1 
15-1 


9-112 


1e-\¢ 12-1% 

18-1* 

13-1* 13-1% 14-1 

18-1 18-1 18-1 19-1 
9=-216% 99-2742 9=275% 9=295% 
9=216% 9-274% 9=275% 9-295" 
9-215 9-2154 99-2154 9-216 
99-2754 9-295 9-295 9-2954 
16-1% 

10-1* 10-1% 12-1 12-1 
18-1 18-1 18-1 18-1 
9-134 23-36 

4-6994 4-699%  4-6994  4-6994 
9-23 9-23 9-23 9-23 
18-1 18- 18-1 18-1 
464-6994 4-699% 4-6994%  4-6994 
4-511 4-511 4-511 4-511 
i ig 9-216 9-274 =95 
l2= \¢-\ \s- le- 
12-1 12-1 12-1 13-1 


SEQ 0080 
19-1, 
9-439% 994408 12-1 12-1 = 12-1 
9-439  9-439% 9-440 9-440" 
9-216 9216# 9-216 9-276 9-276 
9-2958 9-439 9-439 99-4398 99-4398 
12-1 
19-1 19-1191 
44-6998 4-699 9-23 9-23 9-23 
1278 2B 2B OT 10-1 
64-6998 4-699 44-6998 4-699% 4-699" 
4-511 6-0 -0 6-0 9-23 
9-295 9-439 $2440 _$-446 10-1 
1e- cs ae > eS ee 
13-10 13-1 138-1 13-1 13-1 





. 7 
CZRNIAO RM8O DUAL PORT PT2 PAEAO 08-00 15=JAN-82 07:13:40 PAGE S-3 SEQ 0081 
CROSS REFERENCE TABLE (CREF V04.00 ) 
13-1 13-1 13-1 13-1 13-1 
S 12-1 
STESTN 14-1 
TI Ss 13. 3* ' _ 9=274% 9=275% 9-295 9-439% 9-439" 9-440" 9-440" 10-1 12-1 
a 15-1 15-1 | 18-1 18-1 18-1 18-1 
STKCNT 1 18-1 18-14 1% 
STKINT 9-29 9-72 18-1 - 
TKQEN 18-1 18-1 18-14 
STKQIN 18-1 18-1 18-14 1e-\s 18-1* 
TKQOU 18-1 18-1 18-14 18-1* 
STKQSR 18-1 at at 
os A le 15-1 18-1 18-1 18-1 18-1* 18-1* 18-1* 18-1* 18-1« 18-1 
STMPO ae rf 3120 9-15 9-130 9-150" 9-165 9-165 9-165 9-165 9-165* 9-165" 9-165 
165* 9-165*  9-165* 9-21 9-21 9-215 9-215 = 9=-215% 989-215 8=9=215* 9-215* 9-216 
9-216 == 16 9- 9-216% 9-216% 9-274 9-274 9-274 9-274 = Ge274e® 274% IZ 74% 
9-274% 9-27 9-275% 9-275% Q=275* 9-275" 9-302 3 3 9-302* * 
9-307 9-307 9 9-439 9439 9439 9439 459% 459% = 9-459" = 945 3 
9-4398 9-439% 9-439 9-440 9-440 9-440% 994402 9-440" 9-440" 994402 99-4408 





2 9- ¢ 9-30 9-307 9=-307% 9-307* 23-38 
STMP3 9-21 9=-215% 9-215* Jo 16 9-21 16 9-2 g o-gis* 9-216% 9-274 
9-274 9-274 4 9-27 a 14 9-27 a-¢r 9-275% 9-275 0 2 
9-302 9-302" 0 9-307 9-307 9=-3507% 9-3507% 23-58 
STMP4 6-04 9-1 9-15 9-4 y 9-150* 9-165 9-165 165 s-1¢5° S16" 9-165* 
9-165* 9-165* a-1¢ 9-21 9-215% 9-215* 8-245 $-t45" 9=216% 9-439 9-439 
9 9-439% Jud 9=-439% 9-439 9-439 9-439" 4 4 9-440 9-44 
40%” 9-440" 9-440* 9=-440% 9-440" 
£IN 4-5074 4-51 9-137 1 9-1374 9-21 9-312 9-215 99-2154 9-21 9-216 9-216 9-2164 
9-274 9-274 9-274 9-275 9-275 9=-2754 9-295 9-295 9-29 9-2954 9-439 9-439 
9-439 9-439 9-439" 9-44 9-440 9=-4408 9-444 9-444 9-4444 24-20 
$T 6-04 15-1 15-1 
STPFLG 6-04 15-1 15-1 
STP. ¢- 15-1 15-1 
$T 3 0-24 
STRAP2 $3. 0-24 
$T 0-. 0-. 0- 0- - = = 0- 20- 
o 0- - e 0- 
0-, 0- = ee 
0-. 0-. 0- a 0-24 a a 0-24 on 20-24 20-24 
a 20-24 0-24 
STRPAD 20- 20-24 
STSTNM a, & Bo ad A had Pm had 9-295% 9-439% 9-440" 10-1* 12-1 12-1 12-1 12-1 
STTYIN 18-1 18-1 18-1 \e-14 
TYPBN 2 
STYPDS 17-14 0-. § 
YPE 15-14 2 
STYPEC 15-1 - 15- 15-14 18-1 
STYPEX 15-1 15-1 15-14 


—E 7 
CZRNIAO_RM80 DUAL PORT PT2 a ery need 15-JAN-82 07:13:40 PAGE S=-4 SEQ 0082 
CROSS REFERENCE TABLE (CREF V04.00 ) 


pres ice at, a 
15-1 


STYPOS 
SXOFF 15-1 
15-1 15-1 18-1 
SXTSTR l2-1# 
A ra iL 
Ad 4-S228 
ADDRIS 9-101 si] 
ADRERR 9-36 1-44 
AOE 4-5984 
ASR1 7-04 9-53* 
ATO 4-6124 
AT 4-61 
AT 4-6144 
AT 4-61 
ATS 4-61 
ATS 4-6174 
AT6 4-61 
AIA t-Sase 9-215 9-215 9-215 9-215 9-216 9-216 9-216 9-216 9-274 9-274 9-274 9-274 9-275 
9-275 9-275 9-275 9-302 9-302 3-508 9-302 9-307 9-307 3-307 9-307 9-439 9440 
ATABIT 9-53 24-118 
9-87 21-94 

BADTMO 9-34 9-25 

I 4-5398 
BITO 4-513# 

4-513. 4-513 12-1 12-1 13-1 13-1 

B1T01 4-513 4-5134 
BITO 4-515 4=5134 
BITO. 4-513 4-513# 

T04 4-513 yacdt 
BITOS 4-513 = 4-51 

TO6 «= "513 45134 
B1T07 $213 4-5134 

TO8 = 4=51 4-5134 
B1T09 T-tit, 4-5134 12-1 13-1 
BIT 4-51 
BIT1I0 45134 13-1" 
BIT11 4-5134 12-1 
BITl¢ 4-5134 
B1T1 4-5134 13-1 
BIT14 4-5134 12-1 
BIT15 4-5134 
BIT. 4-5134 
BIT 4-5134 
BIT4 4-5134 
BITS 4-5134 
BIT 4-5134 
BIT 4-5134 
B1T8 4-5134 
BIT9 4-5134 
BPTVEC 45134 
CHANGE 9-30 a 24 

R -0# 15* Pt A 9-98 9-100* 


CHGAD! 7 9- 
CKCLK 9-57 9-70 


DUAL POR 


F 
CZRNIAO_RMB8O T PT2 a a 15-JAN-82 07:13:40 PAGE S-5 
CROSS REFERENCE TABLE. (CREF V04.00 ) 





11-144 
11-224 
11-21 11-244 
at F' 9-15 
3-18 * 9-16 
92 9-44 
1 =1 rd] 
11-1 1-294 
9-150 9-150 
1-154 
1 $-| 12-1% 
1 -1 22-1 
9-28 2 
1-14 21-1 
9-440 9-440 
9-440 9-440 
9-23 
2 -5 
8a 8-56 8-63 
ere 
23-494 
of 8-227 23-504 
23-444 
8-77 -99 23-454 
199 8-206 
54 8-61 
23-64 
23-104 
8-169 8-176 
23-144 
23 
3-184 
9-23* 12-1* 
9-165 9-165 9-215 


12-1% 13-1 
15-1 15-1 
21-15 21-16 
1-1 

1-174 

8-70 8-91 
23-434 

8-220 23-464 
8-68 8-89 
23-24 

13-18 

9-215 9-216 


* 
Q« 


9-1 


13-1 
31-37 


8-120 


8-118 


9-216 


Hs 9-157 
8-8 9-2 Ht 9 
9-440* 9-440 


13-1 


31-17 


8-127 


8-125 


9-274 


9-137 9-157* a a 9-1 - a os 


3-440" 


13-1 


1-5 
3-6 


8-134 


8-132 


9-274 


9-439 
art 


13-1 


35-8 


8-185 


8-183 


9-275 


13-14 


1-7 
41 


23-424 


23-14 


9-275 


13-1* 


1-7 
3-14 


9-302 


13-1* 


1-9 
3-16 


9-307 


459s 


14-1 


1-10 
3-18 


9-439 





Sis 2 


eaeec 


é 


4 
& 
4 
4 
& 
4 
& 


9-165 
6-0 


8-20 


fe 


“9 


“112 
-27 
a4 


- S04 


23-314 


G 
DUAL PORT PT2 a a hae 15-JAN-82 07:13:40 PAGE S-6 
E TABLE (CREF V04.00 ) 


9-165 9-215 9215 92169216 9274 9274 
9-23 


=55 8-62 8-69 8-90 8-119 -126 =1 
28-339 8-12 8-133 


23-344 

8-170 8-177 23-284 
8-226 25-37# 

23-394 


9-275 


8-184 


9-275 


23-274 


9-302 


9-307 


SEQ 0084 


9-439 





PT2 at hd V04.00 15-JAN-82 07:13:40 PAGE s-7" 


CZRNIAO RMBO DUAL PORT 
S REFERENCE TABLE (CREF V 
EMG -25 
EM4O ~517 3A 
EMG1 524 
me ER Re 
ene ~46 Fy 
EMTVEC 4-513 G-g3e 9-23 
ENTERA 9-31 
64-5848 
ER 4-513 
ERRVEC 4-5138 9-23 23s 
is) 12-18 12-18 
EXEC 58 Sa 137 
FO 4-564 
Fi 4-5628 
f 4-56 
t 4- 
FG 4-5658 
FER 4-59 
FATI6G 9-215 9-216 
5-1 5- 9-6 
20- 20- 20-2 
ti, © 
1-359 
GISWR 9-28 20-24 
HCE 64-5964 
HCI 64-6618 
HCRC «5978 
7 4-5134 15-1 151 
IAE 4-5998 
IBSAVE 13-1... 13-1 1341 
IE 4-519" 
ILF 4-589" 
ILR -5908 
IOTVEC 46-5138 9-23* 9-238 
IR 64-5428 
IVC 64-6548 
KYBCTL 7-08 9-73" 9-918 
9-295 9-439 
LBC 4-6528 
iBT 4- 
F 4-5138 15-1 151 
isc 4-65 
MAXTN 5 (26-224 
MCPE. 524 
MDPE =-5440 
MOH 4-6 
MOL 4-382 9-165 9-165 
9-4 9 9 
MXF 4-5458 
NED - 9-150 9-150 
Men Bodden 9-215 «9215 
$40 5 32803 


333" 
3-215 


13-1 


9-137 
9-439 


21-7 


9-215 
9-439 


9-150 


9-807 


9-25* 
13-1* 
9-216 


13-1 


9-137* 
9-439* 


21-8 


9-215 
9-440 


9-150 


9-807 


9-26* 
13-1* 
9-274 


13-14 


9-215 
9-440 


21-10 


13-1* 


9-215* 
9-440* 


21-11 


9-216 
9-440 
9-439 


9-274 
9-307 


11-6* 
9-295 


0-8 


13-1* 


9-216 
10-1 


22-16 


9-274 


9-440 


9-439 
9-274 


11-15* 
9-439 


30-8 


13-1* 


9-216* 


9-274 
9-440 


9-440 
9-274 


11-24% 


9-440 


20-2 
20-2 


9-274 


9-275 


9-440 
9-275 


12-1 
10-1 


0-2 


9-274% 


9-275 


9-440 
9-275 


12-1 


20- 
20- 


9-275 


9-302 


9-275 


12-1 


20-2 
20-2 


9-275* 


9-307 


9-275 


SEQ 0085 


12-1* 


9-295 


9-439 


9-302 


I 
RNIAO_RM8O DUAL PORT PT2 ee 5 15=-JAN-82 07:13:40 PAGE S-8 


EROSS REFERENCE TABLE (CREF V 
NOCLOC 590s 21-78 


NOSE 1Z -04 
NTRH 9-105. 21-114 
OFD 4 
OPE 64-6554 
OPI 4-6024 
OPPRT 7-0" 9-274 9-275" 23-40 
OR 4-54 
PAR 4-598 
4-54 
ECH 14-1 14-14 
PFECH] 14-1 14-14 
Ne 14-1 14-14 
PFECHS 14-1 14-14 
14-1 14-1 
PFTSTN 14-1 14-14 14-18 
4-5468 


PIP 4-5834 
4-5134 
PIRQVE  4=-513# 
PORTA 9-33* 9-34 


9-275 9-275 7 
9-439 9-439 9-439 
PORTAI 9-44 21-54 
PORTB 7-04 9-38 9-39« 


9-297 9-302 9-302 
9-439 9-440 3 3=—_ 9-440 
PORTBI 21-64 
PORTC 7 9-49% 9-50* 
4-5134 
PR1 4-51 
PR 4-51 
PR 4-513# 12-5 
PR4 4-5134 
PRS 4-5134 9-93 9-135 
PR6 4-513# 9-26 
PR? 4-5134 
4-51 4-513# 9-66* 
PSEL 4-52 
~5134 


PSW 

PTINBR 7-04 9-150"  9-150* 

a-5ies 3-5! Ss 9-216* 
7 75* 


9-4598 9-459 
2-31 28-33 25-35 
PURVEC “4-51 


~ 4-51 9-23 9-23* 


4-5134 
RDCHR 18-1 30-36 
RDLIN 19-1 0-24 


9-165 


12-9 


9-157 
9=216* 
9- 


$e 
23-37 


9-23* 


9-165 


9-165 


9-165 


9-215 


peere reree 
oN Son 
oOnNuvIaAo OnNMNM 


~ 


9-216 


9-216 9276 
9-157 9-157 
9-216 9-216 
9-275 9-275 
9-307 9-439 
9-165 9-165 
9-216 99-27% 
9-275 9-275 
9-439 9-439 


9-274 


9-215* 9-215" 9 138 9-5388 

92742 9 274e 99-275 = 92758 

9-307" 9-307 9-307* —9-439% 
O* 23- 23-28 235-30 
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~ « 9-80 9-106 20-24 
RELERR 7 9-215* 9-215% 9-216% 9-216% 9-274" 92748 9-275" 9-275* 9-302" 
RELOK of. 314 5-313 5-318 33158 3-348 9-275 9-302 9-307 
SREG ” 
~ 3 4 ae @ 134 
RMBA yam 3d 
RMCS1 4-6 9-215* 9-215% 9-215*  9-216*  9-216* one16s 9-274% 9=274% 9-275* 
9-297% 9- ce 9=302e 9-307 9-307% = 994398 9439% 94398 94598 = 94398 
9-44 9-440" 9-440" 9-440" 
RMCS2 _ 4-683# = 9=139% = 9-15 9-150 9-15 3-138 9-150* 9-150" 9-150*  9-150* 
i 9-171% 9-215 =9=215% = 9-215% = 215% = 215% «== 215% = 216% = 9216 * 
9-276% 9-274% 99-2742 9-274" = 92748 = 9274 274 274% 275% = 92758 
9-275* 9-275* 9-297* 9-297% 9-302 9 oes 9-302* 9-302 9-307  9-507* 
9=439% §— 9=439% — 9-439% 94598 = 94598 e 9-44 9-440 99-4402 99-4408 
RMDA a-faee 
RMDC 1-6958 
RMDS 4 9-150 9-150 9-165 9-165 9-165 9-165 9-165 9-165 9165 9165 9215 9215 9215 
9-215 9215 921 9-21 9-538 9-216 9-21 9-274 9274 92 9-2 9-274 9274 99-276 
9-274% 9-275 9-27 9-27 9-27 9-275 9-27 9-275 9=275%® = 9-297 = = 297* 2 2 2 
7 9-307 = 9439 9439 39 9-439 9-439 9439 HG 9-439 39 9-439 94398 
9-439 40 9-440 39 9440 9-440 9-440 9-440 9440 9440 9440 = 9440 9440" = 94408 
RMDT 4-6908 9-157 9-157 9-157 9-157 
RMEC1 4-6 
RMEC2 4-697# 
RMER1 & 
RMER2 4-6954 
RMLA & 
RMMR1 4 
RMAR2 4-6 
RMOF 4-69 9-215% 9-216% = 9-439% = — 9439" = 94408 = 94408 
RMR 4-5914 


RMSN 4-6914 9-170 9-172 
4-680# 


Cc 9-113 
SAVREG en 
sc 4-526# 
sco 4-6424 
sci 4-64 
Sc 4-6444 
Sc 4-6454 
SC4 4-6464 
SCOPE 4-513# 9-179 9-532 9-216 9-274 9-275 9-311 9-439 9-440 39 9-444 
ale ee 9-274% 9-275" 9-439" 99440" 235-32 25-353 = 23-35 23-37 = 23-39 = 23-40 
STACK  4-513# 9-23 9-69 9-137, 9-215, 9-216 9274 = 275 9295 9439 9-440 
START 5-1 9-144 18-1 18-1 
START1 5-3 9-174 
START2 9-16 9-194 
STKLMT 4-513# 
STOP) = 12=1 12-54 
Sw0 5134 
Sw00 4-51 4-5134 
sw01 4-51 4-5134 
Sw02 4-51 4-513# 


K 
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CROSS REFERENCE TABLE (CREF V04.00 ) 
Sw03 4-51 4-51 
Sw04 4-51 4-51 
we OG fe 
swO 4-51 4-51 
Sw08 4-51 4-51 
Sw09 4-51 4-51 9-439 9-440 
Swi 4-51 
Sw10 4-51 
Swi 4-51 
sule 4-51 
Sw Tait 
SwW14 4-51 39 9-440 
Sw15 4-5134 9-176 
or) 4-5134 
Sa 4-5134 
SW4 4-5134 
Sw5 4-5134 
SW6 4-5134 
SW? 4-5134 
Sw8 4-5134 
Sw9 4-513# 
SWR 6-04 9-23 9-2 9-23 9-23 9-28 9-176 
2-1* 12-1 12-1* 12-1* 13-1 13-1 13-1 
EG 5-14 9-23 9-28 18-1 18-1 18-1 
SWICHA 9-298 9-439 21-134 
SWICHB 9-303 9-440 21-14 
SWICHN 9-310 9-439 9-440 21-124 
TAP 4-6374 
TBITVE 4-5134 
TEST1 9-137 = 9-137 91374 
TEST10 40 9-440 9-4404 
TEST¢ 9-215 9-215 92154 
TEST 9-216 9-216 99-2164 
TESTS =—« 9274 274 74M 
TESTS 9-275 9-275 99-2754 
TEST6 §=—6 9295 9295 9 295A 
TEST? 9-439 9-439  9-439H 
TESTNO 9-79 21-84 
TIME 7-04 9-274 9-274% = =9-275 = 9 275% «11-29% 23-51 
TIMEA 7-08 9-56" 27 9-274 9-274% 9-274% 
TIMEAP 7-0# 9-56* 9-274 9-274e 
TIMES 7-0# 9-56* 275, 9-275) 275% = 92758 
TIMEBP 9 7-0# 9-56 9-275* 9-275s 
TKVEC 4=513# 18-1* 18-1* 
TOLER 9-274 9-275 11-394 
TPVEC 4-5134 
TRAPVE 4-513# 99-23% 9-23* 
TRE 4-525 
TRIVEC 4-51 
TsT1 9-1374 24-4 
TST10 39. 9=440# 24-7 
TST11 448 
TSTIAA 9-83 9-1344 10-1 
iste o-Siae si-5 
TST 9-2164 24-7 


7 


9-439 
13-1 


9-439 
18-1 


9-440 
18-1 


9-440 
18-1% 


12-1 


12-1 


SEQ 0088 


12-1 


PORT PT2 MA 


ABLE (CREF V 

bo 

‘7 

4-7 

4-7 

4-48 
13-1 23-27 
10-1 14-1 
9-28 9-31 
9-299 9-303 
9-440 40 
15-1 16-1 
18-1 18-1 
9-103 14-1 
9-47 20-24 
9-215 9-215 
9-275 9-275 
9-215 9-215 
9-274 9-274 
9-302 9-302 
9-274 9-274% 


9-27 


9-439 


7 
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9- 
9-440 


11-30 


23-37 = 23-38 
9-101 9-104 
9-440 9-440 

14-1 14-1 

18-1 18-1 
9-274 9-274 
9-2204 9-274 


9-275 9-275 
9-307 
11-34* 


23-39 
9-105 
9-440 


14-1 
18-1 


9-274 


9-274 
9-275 


BB 
CHECK 


SEIZE 
SELECT 


SETATA 


DUAL POR 


418 
418 


CZRNIAO_RM8O PORT PT2 MA 
CROSS REFERENCE TABLE (CREF V 


6 

6-0 
9-137 

20-2 
9-439 


9-275 


6-0 


6-0 


6-0 


6-0 


23> 20-3"? 28-3" «pe 


9-165 


" 7 
RO D0} -00 15-JAN-82 07:13:40 PAGE M-1 


9-295 


20-2 


9-165 


9-274 


9-307 
9-295 
9-295 


9-165 
9-439 


9-439 


20-2 


9-165 


9-440 
20-2 


9-165 


9-444 


20-2 


20-2 20-2 


9-216 9-439 


9-175 = 9-215 
9-274 9-274 
9-302 9-302 


9-278# 9-295 
9-216 9-274 
9-440 9-440 


20-24 


9-439 


9-439 


9-274 
9-440 


SEQ 0090 


9-439 


9-215 
9-274 
9-307 


9-439# 


9-274 
9-440 


SE@ 0091 


) 


04.00 15-JAN-82 07:13:40 PAGE M-2 


06.00 


(CREF V 


PORT PT2 MA 


0 DUAL 


S REFERENCE TABLE 


CZRNIAO 


CROS 


20-2 20-24 


20-2 
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